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EXPLICACIOH 
DE LOS PROGRAHAS 


LABERINTO MAGICO 


110 PROGRAMA <2% LABERINTO MAGICO 

20 / 

30 BORDER 26: INE 0,26: INE 1,0: INE 2,6: INE 3,2,6:SPEED INE S5,S:PAPER O:FEN 3:MODE 
le) 

40 LOCATE 2,10:PRINT"L A BER INTO":¿LOCATE 5,14:PRINT"M A G 1 C 0O":FOR T=1 T 
O 255:SOUND 1,T,3 

50 IF SQ(1)<4 THEN SO ELSE NEXT 

60 FOR T=1 TO 15:SO0UND 1,255,7,T 

70 1F 50(1)<>4 THEN 70 ELSE NEXT:FEN 1:MODE 1 

80 RESTORE 9000:FOR Z=1 TO 22:READ: EF:LOCATE 1,Z:PRINT E*¿CHR*(7) ¿NEXT 

90 IF INKEY$="" THEN 90 

100 PEN 1:MODE O:LOCATE 1,S:PRINT" INTRODUCE TU NOMBRE" «¿LOCATE 5,10: INFUT NMé 

110 IF LEN(NME)<1 OR LEN(NM$)>10 THEN 100 ELSE CLS 

120 1%$=CHR2 (143) ¿SYMBOL AFTER 31:SYMBOL 140,0,60,126,102,102,126,60,0:p+=CHRE (14 
0) :GOSUB 8000:GOSUB 8100:GOSUB 8200 

130 XP=2:YF=2:GOSUB 7000 

140 EVERY 100,0 GOSUB 7200 

150 EVERY 21,1 GOSUB 7500 

160 L$=INKEY+:1F Lg="" THEN 160 

170 IF L$=CHR$(240) AND TEST(XPxX32-16,412-(YP-1)x16)<1 THEN GOSUE 7100: YF=YP-1: 
GOSUB 7000 

180 IF L$=CHR$(241) AND TEST(XPX32-16,412-(YP+1)x16)<>1 THEN GOSUB 7100: YP=YP+1; 

GOSUB 7000 

190 IF L$=CHR*$(242) AND TEST((XP-1)x32-16,412-YPx16)<1 THEN GOSUBE 7100:XP=XP-1: 

GOSUB 7000 ( 

200 IF L$=CHR$(243) AND TEST((XP+1)*x32-16,412-YFxX16):<>1 THEN GOSUB 7100: XF=XP+1: 
GOSUB 7000 

210 1F XP=19 THEN EVERY 5000,0 GOSUB 7580:EVERY 5000,1 GOSUB 7580:G0TO 230 

220 GOTO 160 

230 PEN$O,3:LOCATERO,4,10:PRINT"FELICIDADES!":FOR T=255 TO 1 STEP-1:SOUNO 1,T,2: 
SOUND 2,T,2 

240 IF SQ(1)<>4 THEN 240 

250 NEXT:MODE O:PEN 2 

260 LOCATE S,5:PRINT NM$:LOCATE 5,10:PRINT"TARDASTE"¿TM:LOCATE 2,12:PRINT"laberi 

ntisegundos":LOCATE 6,14:PRINT"EN SALIR":PEN 3:LOCAT 

E 1,22:PRINT"P PARA OTRA PARTIDA" :LOCATE 1,24:PRINT"F FARA OTRO PROGRAMA" 
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e) E 


270 L$=INKEY$:IF L$="" THEN 270 ELSE L$=UPPER$(L$) 

280 IF L$="P" THEN RUN 100 ELSE IF L$<>"F" THEN 270 

290 INK O,1:INK 1,24:PAPER O:PEN 1:BORDER 1:MODE 1:PRINT"PREPARADO PARA EL SIGUI 
ENTE PROGRAMA: "¿RUN"" 

7000 PENRO,2:LOCATERO,XP,YP:PRINTHO ,P$:PENHO,1:RETURN 

7100 LOCATERO,XP,YP :PRINTHO ,CHR$ (32) ¿RETURN 

7200 TM=TM+1:LOCATER1,1,13:PRINTH1 ,TM¿CHR$ (7) ¿RETURN 

7300 PENR$O,1:XL=INT(RNDX6+1)X3-2:YL=INT(RNDxX6+1)x4-3:1F XL=1 AND YL=1 THEN 7300 
ELSE IF XL=1 THEN XL=2:GOTO 7310 ELSE IF YL=1 THEN Y 

L=2:G0TO 7350 ELSE D=RND:IF D<0.49 THEN 7350 

7310 FOR Z=XL TO XL+2:1F Z<>XP AND YL<>YP THEN LOCATERO,Z ,YL :PRINTRO,CHR$ (32) 
7320 NEXT RETURN 

7350 FOR Z=YL TO YL+3:1F Z<>YP AND XL<>XP THEN LOCATERO,XL,Z:PRINTRO,CHR$ (32) 
7360 NEXT :RETURN 

7500 GOSUB 7300 

7505 XL=INT (RNDX6+1)X3-2:YL=INT(RND*6+1)x4-3:IF XL=1 AND YL=1 THEN 7505 ELSE 1F 
XL=1 THEN XL=2:GOTO 7510 ELSE IF YL=1 THEN YL=2:GOTO 

7550 ELSE D=RND:IF D<0.49 THEN 7550 

7510 FOR Z=XL TO XL+2:1F Z=XP AND YL=YP THEN Z=XL+2 ELSE LOCATE*RO,Z ,YL:PRINTHO,C 
HR$ (143) 

7520 NEXT:GOTO 7580 

7550 FOR Z=YL TO YL+3:1F Z=YP AND XL=XP THEN Z=YL+3 ELSE LOCATERO,XL,Z:PRINTHO,C 
HR$ (143) 

7560 NEXT 
7580 RETURN 

8000 WINDOW $0,1,20,1,25:x$=STRING$ (19,143) :FOR z=1 TO 25:LOCATE $0,1,2:PRINT +0 
¿1S:LOCATE $0,19,z :PRINT $0,1$:NEXT:LOCATE $0,1,1:PR 

INT $0,x$:LOCATE $0,1,25:PRINT $0,x$ 

8010 z=INT(RND(TIME)x22+2) :1F Z<>5 AND Z%>9 AND Z<>13 AND Z<>17 AND Z<%>21 THEN L 
OCATE 19,z:PRINT CHR$(32) :RETURN ELSE 8010 

8100 WINDOW +1,20,20,1,25:PEN +1,3:LOCATE 41,1,6:PRINTH1,"TIEMPO" : RETURN 

8200 X+=LEFTS(X+,LEN(X$)-1) :FOR Z=4 TO 16 STEP 3:FOR Y=2 TO 24:LOCATE Z,Y:PRINT 
L$¿NEXT Y,Z:FOR Y=5 TO 23 STEP 4:LOCATE 1,Y:PRINT Xi 

¿NEXT RETURN 


9000 DATA " LABERINTO MAGICO",,” Es una prueba contra reloj en 
un”,)laberinto siempre cambiante.,," El objetivo del 
Juego es conseguir",salir de el en el minimo tiempo posible.,," Tu personaje Ss 


era una pelota de color” 

7010 DATA rojo que aparecera siempre en la,esquina superior-izquierda del monito 
r,"y que debes llevar hasta la apertura, en","la mur 

alla exterior, en el otro extremo",de la pantalla. 


7020 DATA ,," La pelota se mueve con las cuatro",teclas del CUPSOP 99,3.  PULSA 
CUALQUIER TECLA FARA COMENZAR" 


ES E ES 


MOSQUITO 


1 INK 0,0: INK 1,26:FAFER O:FEN 1:BORDER O:MODE 2 
10 CLS:RESTORE 10000:FOR I=1 TO 19:READ X*:LOCATE 1,I:FRINT X*:¿NEXT 1 
12 XE=INKEYE5:IF X*="" THEN 12 
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100 CLS:CLEAR:ra=1: INPUT "Introduce el nuaero de puntos de la nube “¿nn 

110 ELSTLOCATE 1,10:FRINT*1Homotecia*:¿LOCATE 1,121PRINT"22Rotacion sobre un pun 
to":¿LOCATE 1,14:FRINT"3:Rotacion mas homotecia":LOCA : 

TE 1,16:FRINT"4:Abandonar" 

112 x*=INKEYE:IF x*2"1" OR x%>"4" THEN 112 

114 CLS:ON VAL (x<%) GOSUB 198,220,210,230 

116 ORIGIN x9,y49:G0TO 300 

198 GOSUB 300 

200 INFUT"Razon de la homotecia (21 comprimir +1 expandir) "¿ra:CLS:RETURN 

210 GOSUE 200:CLS 

220 GOSUE 300 

224 INFUT"Introduce el angulo de giro (en radianes) "¡ng:¿RETURN 

250 CLEAR:INE 0,1: INE 1,24:FAPER O:PEN 1:MODE 1:BORDER 1:RUN" 

300 CLS:INFUT"Introduce la ordenada del centro (0 a 599) "¿xg:1F xg:0 OR x9:399 

THEN 300 ELSE CLS 

302 INFUT"Introduce la abscisa del centro (0 a 399) "3yg:1F yg9:0 OR yg:399 THEN 

302 ELSE CLS:¿RETURN 

500 GOSUBE 1000:CLS:¿FOR i=1 TO nn:x=INT(RNDX600)-xg 2 y=INT (RNDIX400)-=yg xx=(ixtraXkx 
3XCOS (ng9)- (raXy+iy)XSIN(ng9) :yy=(ix+raXx)XxSIN(ng)+(ra' 

Xy+tigy)xXCOS (ng) 

302 FLOT x,y PLOT xx.,yy NEXT i 

310 XE=INKEY+$:1F X+="" THEN 510 ELSE CLS:¿RUN 100 

1000 CLS:LOCATE 10,10:FRINT"LA NUBE PERMANECERA EN PANTALLA HASTA QUE FULSES TEC 

LA ” 

1001 X*$=INKEY+:IF X+="" THEN 1001 ELSE RETURN 

10000 DATA " FUNTOS",.," Con este programa podras 
ver como actuan las homotecias, los giros y la comb 

i-","nacion de ambos, actuando sobre una nube de puntos." 

10002 DATA" El programa primero te pedira el numero de puntos y a continuacion t 

endras que","elegir entre realizar una homotecia, un 

a rotacion sobre un punto o una rotacion" . 

10004 DATA"mas una homotecia, luego tendras que darle el centro del giro o de la 
homotecia","la razon de la homotecia y el angulo de 

giro (en radianes)." 

10006 DATA,” Un consejo, para ver bien los giros usa angulos del orden de .05 ra 

dianes, y","para las homotecias usa razones del orde 

nde .9 o 1.1, pero mejor que pruebes",'"con todas las combinaciones posibles." 


10008 DATA, 1119" FULSA TECLA PARA COMENZAR" 
10 REM +++++ MOSQUITO +++++ 
20 / 


30 BORDER 9: INE 0,9: INE 1,24: INE 2,6: INE 3,2:PAFER O:FEN 1:MODE 1:CLS 

40 RESTORE 9000:FOR Z=3 TO 22:READ EF :LOCATE 1,Z:PRINT ER ¿CHRE (7) ¿NEXT :GOSUB 910 

(0) 

530 IF INKEY+$="" THEN 50 ELSE CLS 

60 LOCATE 3,7: FRINT"ELECCION ME LAS TECLAS UE JUEGO: ":LOCATE 3,12:FRINT"FPARA SUE 
IRA" 

70 LF=INKEYE:1F Lé="" THEN 70 ELSE IF L+<>CHRé(13) THEN LOCATE 1,1:FRINT "SUBIR: 
"sLi:St=L3+ 

80 LOCATE 3,12:PRINT"PARA BAJAR" 

90 LF=INKEYS$:1F Lé+="" THEN 90 ELSE IF L+zx*CHR*(13)- THEN LOCATE 20,1:FRINT "BAJAR 

"Le :ER=LE 

100 LOCATE 5,12:PRINT"PARA IR A LA DERECHA?" 

110 Lé=INKEY$:IF Lé+="" THEN 110 ELSE 1F L+*<*CHR$(13) THEN LOCATE 1,3:PRINT "DERE 

CHA: "¡L+:Dé=L+ E 

120 LOCATE 5,12:FPRINT"FARA IR A LA IZQUIERDA?" 

130 "Lé+=INKEY+:1F Lé="" THEN 130 ELSE IF Lé<>CHRé(13) THEN LOCATE 20,3:FRINT "IZQ 

VIERODA: "¡Lé*:Ié=L3$ 

140 LOCATE 5,22:FRINT"ESTAS CONFORME? (S/N)" 

150 Lé=INKEY+4: IF Lé="" THEN 150 ELSE L+=UPFER$(L$) :1F Lé="N" THEN CLS:GOTO 60 EL 
SE IF L2:"S" THEN 150 

160 EOROER 253:CLS:N=RNOD (TIME) 

170 LOCATE 1,1:FRINT STRING*(40,143):LOCATE 1,2:FRINT STRING* (40,143) :GOSUB- 8000 
¿GOSUBE 8100:GOSUB 8200:GOSUR 8300 

180 FEN 3:FOR Z=1 TO TM 

190 XS(Z)=INT (RNDX38+2) :YS(Z)=INT (RNOXxX21)+4 

200 IF TEST(XS(Z2)Xx16-8,400-(YS(Z)x16-8))<>0 THEN 190 

210 LOCATE XS(Z),YS(Z):FRINT SP+:NEXT:PEN 1 

Z20 FEN 2:FOR Z=1 10 10 
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230 XM(Z)=INT (RNDX38+2) :YM(Z)=INT (RNOX20)+4 

240 IF TEST(XM(Z)*x16-8,400-(YM(Z)x16-8)):<>0 THEN 230 

250 LOCATE XM(Z),YM(Z) :PRINT MNS$:NEXT:FEN 1 

260 XV= INT(RNDX3G8+2) :YV= INT(RNDxX21)+4:1F TEST(XVx16-8,400- (YVkx16-8)):<70 THEN 260 
- ELSE FEN 3:LOCATE XV,YV:FRINT Vé:FEN 1 

270 XA=INT (RNIIX40+1) :YA=INT (RNDXZ21)+4:1F TEST (XAx16-8,400- (YAxX16-8)):2:50 THEN 270 
ELSE FEN 31:LOCATE XA,YA:FRINT ARF:FEN 1 

280 XM=INT(RNOX38+2) :YM=INT (RNDIX21)+4:1F TEST(XMx16-8,400-(YMx16-8))%30 THEN 280 
ELSE LOCATE XM,YM¿PRINT MDe:D0R$="D0" 

290 J=0:L+=INKEYS 

300 IF Lé$=S% THEN GOSUB 1000:J=1 

310 IF L+=E+ THEN GOSUB 1100:J=1 

320 IF L+=0% THEN GOSUBE 1200:J=1 

330 IF Lé=1% THEN GOSUB 1300:;.J=1 

333 IF J=1 THEN GOTO 1400 

340 IF j=1 THEN SOUNO 1,500,2 

330 E=RND+O0.2:1F KE2ZN/10 THEN 1500 

360 GOTO 290 j 

1000 LOCATE XM,YM:FRINT E*$:1F YM:3 THEN YM=YM-1 

1010 RETURN 

1100 LOCATE XM,YM:¿FRINT. E$:1F YM<23 THEN YM=YM+1 

1110 RETURN 

1200 LOCATE XM,YM:FPRINT E*:1F XM239 THEN XM=XM+1:0R+$="I" 

1210 RETURN 

1300 LOCATE XM,YM:FRINT E*:IF XM:*2 THEN XM=XM-1:D0R+$="I" 

1310 RETURN 

1400 TC=TEST (XMx16-8,400- (YMx16-8)) 

1410 1F TC=2 THEN E=E+100:GOSUB 8000 :¿MN=MN-1 

1420 IF TC=3 THEN 1600 

1430 IF XM=XV AND YM=YV AND MN=0 THEN 2000 

1440 LOCATE XM,YM:IF DR$="D0" THEN FRINT MD* ELSE FRINT MIz 

1450 E=E-10: GOSUB 8000:IF Ezx=0 THEN 1600 

1460 GOTO 340 

1500 IF XM<=XA ANO TEST((XA-1)x16-8,400-(YAxX16-8))=0 AND XA+3 THEN LOCATE XA,YA: 

FRINT E*:XA=XA-1:G0OTO 1320 

1510 IF XM>=XA ANDO TEST((XA+1)x16-8,400-(YAX16-8))=0 AND XA:38 THEN LOCATE XA,YA 
¿PRINT EF:XA=XA+1 

1520 IF YM<í=YA AND TEST(XAkX16-8,400-((YA-1)X16-8))=0 AND .YA*4 THEN LOCATE XA,YA: 

FRINT EF :YA=YA-1:G0TO 1540 

1530 IF YM>=YA AND TEST(XAx16-8,400-((YA+1)Xx16-8))=0 AND YA223 THEN LOCATE XA,YA 
¿FRINT EF: YA=YA+1 

1540 FEN 3:LOCATE XA,YA:FRINT ARFS:FEN 1 

1550 IF XA=XM AND YA=YM THEN 1600 ELSE GOTO 290 

1600 FOR T=100 TO 1200 STEF 100:SOUND 1,T,T/100:NEXT:LOCATE 16+MS*X3,2:PRINT CHR+ 
(143) ¿MS=MS-1:FOR T=1 TO 1000:NEXT 

1610 IF MS:i=0 THEN 1690 

1620 LOCATE 3,10:FRINT"CONTINUAMOS? (S/N)" 

1630 Lé$=INKEY+:1F L+="" THEN 1630 ELSE Lé=sUPPERE(L+):1F Lé+="S" THEN GOSUR 9130:6 

OTO 160 ELSE 1F L+<*"N" THEN 1630 ELSE 1700 

1690 LOCATÉE 4,10:PRINT"HAN MUERTO TODOS TUS MOSQUITOS" :FOR T=1 TO 2000:NEXT 

1700 CLS: LOCATE 1,12:PRINT"PARA OTRA PARTIDA FULSA LA TECLA P":LOCATE 1,14:FRINT 
"FARA DEJAR EL PROGRAMA FULSA F" 

1710 Lé=INKEY*:1F Lé="" THEN 1710 ELSE L+=UPPERS(L+$) :1F Lé="F" THEN RUN ELSE IF 

LEO "F" THEN 1710 ¡ 

1720 BORDER 1: INE 0,1: INE 1,24:PAFER O:PEN 1:CLS:PRINT"PERFARADO PARA EL SIGUIEN 

TE PROGRAMA :":RUN"" 

2000 FOR Z=1 TO TM:LOCATE XS(Z),YS(Z):¿PRINT E*:PT=FT+10:SOUND 1,100,3:GOSUB 8100 
¿FOR T=1 TO 100:NEXT T,Z:ZN=ZN+1:GOSUBR 9150:GOTO 160 

8000 PEN 3:FAPER 1:LOCATE 1,1:FRINT USING"ENERGIA:4$$*+" ¡ESPAPER O:FEN 1 

8010 IF MN=0 THEN LOCATE XV,YV:¿PRINT CHR+ (249) 

8020 RETURN 

8100 PEN 3:PAPER 1:LOCATE 14,1:PRINT USING"PUNTOS :HHHRR"GFTIPAPER O:FEN 1:RETURN 
8200 PEN 3:PAPER 1:LOCATE 27,1:PRINT USING"HABITACION 344" ¿ZN:PAPER OPEN 1:RETU 
RN 

8300 FEN 3:FAFER 1:LOCATE S,2:FRINT "MOSQUITOS: "*FOR Z=1 TO MS:LOCATE 16+2Zx*x3,2:P 
RINT MORINEXTIFAFER O:FEN 1:RETURN 

9000 DATA " MOSQUITO",,” En MOSQUITO tendras que sobrevivir e 
n","una habitacion, que es un ambiente muy".,hostil p 

ara los de tu especie.,," Para tener energia comeras de los","frutos que hay en 
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la habitacion, pero” 
9010 DATA con cuidado. de no tropezar con los,insecticidas ni con el aracnido que 


atrataran de eliminarte.,.," For fin podras salir po 

r la ventana",cuando te hayas comido todos los frutos,de la habitacion.,," Elm 
ovimiento del mosquito se realiza" 

9020 DATA con las teclas que tu elijas.,»." FULSA UNA TECLA PARA CONTINUAR" 


9100 SYMBOL AFTER 243:SYMBOL 244,99,50,30,30,47,255,42,21:SYMBOL 245,198,76,120, 
120,244,255,84,168 

9120 SYMBOL 246,4,8,110,255,255,255,126,60:SYMBOL 247,60,38,36,60,44,52,52,60:5Y 
MBOL 248,24,60,102,255,189,165,165,145 

9130 SYMBOL 249,255,153,153,153,153,153,153,255:MI$=CHR$ (244) :MDS$=CHR$ (245) ¿MN$= 
CHR$ (246) :SP$=CHR$ (247) ¡ARF=CHRE (248) ¿V$=CHR$ (143) 

9140 ES=CHR$ (32) :E=500:PT=0:ZN=1 :MS=5 ¿DIM XM(10) ,YM(10) 


9150 E=S500:1MN=10:TM=10+ZNxX5:XS (1)=1:YS(1)=1:ERASE XS.,YS:DIM XS (TM) ,YS (TM) ¿RETURN 


ESPACIO 


10 SYMBOL AFTER 239 
20 INK 0,OsINK 1,26: INK 3,24,B8:PAFER O 
30 MODE O:BORDER O:GOSUB 380 


40 LOCATE 1,13:PEN 3:FRINT" ESPACIO "¿FOR t=10 TO 500 STEF 10:SOUNO 3,t,1 
O:NEXT 

50 MODE 1:PEN 1:PRINT:FRINT:¿FRINT" Al regresar de tu paseo espacial " 
60 PRINT.  " encuentras que tu nave ha sido des-" 

70 PRINT  " montada por unos diminutos seres " 

80 PRINT " galacticos. " 

90 PRINT: PAINT hi llebes recontruirla antes de que se" 

100 FPRINT agote tu reserva de oxigeno, para " 

110 FRINT " ello tienes que colocar sus piezas" 

120 PRINT " sobre la plataforma de despegue " 

130 FRINT.  " empezando por la base y terminando 

140 PRINT ” do por el FUEL...FerO0......" 

150 PRINT:PRINT “1: TEN CUIDADO CON LOS EXTRATERRESTRES! !". 

160 PRINT:PRINT:PRINT" (UTILIZA JOYSTICK O CURSOR)" 


170 LOCATE 1,22:PRINT"PARA COMENZAR EL JUEGO PULSA UNA TECLA" 
180 IF INKEY$="" THEN 180 ELSE CLS 

190 SYMBOL 250,24,60,90,126,60,24,231,153 

200 SYMBOL 251,1,3,6,4,131,65,39,31 

210 SYMBOL 252,2,1,1,2,2,2,2,6 

220 SYMBOL 253,128,192,96,32,192,128,224,112 
230 SYMBOL 254,200,135,128,64,64,64,64,96 

240 SYMBOL 240,1,3,3,5,4,5,5,9 

250 SYMBOL 241,10,10,11,10,11,10,11,10 

260 SYMBOL 242,128,192,192,160,32,160,160,144 
270 SYMBOL 243,80,208,80,208,80,208,80,208 
280 SYMBOL 244,27,21,21,22,20,25,27,29 

290 SYMBOL 245,216,168,168,104,40,152,216,184 
300 SYMBOL 246,50,116,99,116,104,112,96,64 
310 SYMBOL ¿17,76,46,198,46,22,14,6,2 

320 SYMBOL 248,0,0,0,63,127,149,181,149 
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(Bf. 


330 SYMBOL. 249,0,0,0,240,248,44,108,44 

340 SYMBOL 255,181,177,127,63,0,0,0,0 

350 SYMBOL 239,108,36,248,240,0,0,0,0 

360 MODE 1: INK.0O,0:INK 1,26 :BORDER O 

370 PR=1 

380 FOR i=i TO 640 STEP:4 

390 PLOT i,RNDx400,1 

400 MEXT 

410 DEG 

420 MOVE 20,350 - 

430 FOR i=1 TO 360 STEP 3 

440 DRAW 25+40*SIN(i) ,350+40X*xC0S(i) 

450 NEXT 

460 MOVE 12,355:FILL 1 

470 IF PR=0 THEN RETURN 

480 x=340:y=340 :fx=270 :4fy=360 

490 n1ix=600 :n1y=265 :n2x=150:n2y=350 

3500 mix=-10 :m2x=650 :m3x=-10:m4x=650 

510 LOCATE 1,24:PRINT "OXIGENO"; 

520 MOVE 1,15,3:DRAW 250,15:DRAW 250,0 :DRAW 1,0:DRAW 1,15 

530 MOVE 3,12:FILL 3 

540 TAG 

550 GOSUB 990 

560 z= INT(TIME/300) 

3570 MOVE x,3y»,1,0:PRINT CHR$(251) ; :PRINT CHRé (253) ; 

3580 MOVE x,y-16:PRINT CHR$(252) 3 :PRINT CHR+$ (254) ; 

590 IF ar640 THEN a=0 

600 a=a+7 

610 mix=((a)x2)MOD 640:miy=(60xSIN (a) )+240+RNDX 16 

620 m3x=((a)x2)MOD 640:m3y=(40XSIN(a))+125+RNDX14 

630 m2x=((632-a)x2)MOD 640 :m2y=(60XxSIN (a) ) +200+RNDX15 

640 MOVE mix ,m1ly,3:PRINT CHR+ (250) ; 

650 MOVE m3x,m3y,3:PRINT CHR+$ (250) ; 

660 MOVE m2x ,m2y¿PRINT CHR$(250) ; 

670 t=(INT(TIME/300)-z)x2 

680 MOVE 400,10:DIRAW 460,10: DIRAW 460,0: DIIRAW 400,0:DRAW 400,10 

690 MOVE 430,2:FILL 1 

700 MOVE 250-t,15:FPRINT CHR$ (32) ; 

710 IF T:250 THEN 1300 

720 IF MiX+16>X AND M1iX<X+32 ANO MiY-16<Y AND MiY>Y-32 THEN TAGOFF :¿FRINT CHRE (7) 
¡3TAG:Z=Z-5 

730 IF M2X+16>X AND M2X:<X+32 AND M2Y-16<Y AND M2Y>Y-32 THEN TAGOFF :FRINT CHR$ (7) 
¡¿TAG:Z=Z-5 " . 

740 IF M3X+16>X AND M3X:2X+32 AND M3Y-16<Y AND M3Y>+Y-32 THEN TAGOFF:PRINT CHRE(7) 
33TAG:Z=Z-S 4 
730 IF INKEY(0)< 
760 IF INKEY (2): 


¿+1 OR INKEY (72)%<: 
—1 OR INKEY (73) « 
770 1F INKEY (8): 1 OR INKEY (74) + 
780 IF INKEY(1)<%-1 OR INKEY (75) <> 
790 IF c1i=0 GOTO 820 

800 MOVE x,y,0,2:FRINT CHREé (251) ; :FRINT CHRE (253); 

810 MOVE x,y-16,0,2:FRINT CHRE (25%) ¿ ¿FRINT CHRE (234) z2c1=0 

820 IF cy=1 THEN y=y+8:cy=0 

830 IF cy=-1 THEN y=y-B:cy=0 

840 IF cx=1 THEN x=x+*8:c0x=0 

850 IF cx=-1 "THEN x=x-B:2c0cx=0 

860 IF x>640 THEN x=0 

870 IF n1x>640 THEN nix=x+30 

880 IF n2x>640 THEN n2x=x+30 

890 IF £x>640 THEN fx=x+31 

7900 IF x+322m1x AND x<n1x+32 AND yaniy-32 AND y-32ín1y THEN MOVE nix,niy,,2:FRIN 
T CHR$(244) ; :PRINT CHR$ (245) ; :MOVE nix,niy-16:FPRINT 

CHR$ (246) 3 :PRINT CHR+$ (247) ¿:cn=1:GOTO 970 

910 IF x+32:n2x AND x:<ín2x+32 AND yan2y-32 AND y-32¿n2y THEN MOVE n2x,n2y,,2:PRIN 
T —CHRx3(240) ¿:FRINT CHR$ (242) 3 ¿MOVE n2x ,n2y-16:FRINT 

CHR*+ (241) 3 :FRINT CHR+ (243) ¿:cn=1:GOTO 1020 

720 1F x+32%fx AND x<fx+32 AND y>fy-32 AND y-32<fy THEN MOVE fx,fy,,2:PRINT CHR$ 
(248) ¡¿PRINT CHR* (249) ; ¿MOVE fx ,fy-16:PRINT CHRe (255 

) 5 :PRINT CHR$(239) ¿:cn=1:GOTO 1070 


THEN Ci=1 :cy=1 
THEN Ci=1 :cy=-1 
THEN cli=1 :cx=-1 
THEN cl=1:cx=1 
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930" MOVE mix ,miy,,2:PRINT CHR$(32) ; 
940- MOVE m3x ,mM3y ¿PRINT-CHR* (32); 
950.MOVE m2x.m2y ¿FRINT CHR$ (32); 
960 GOTO. 570 
970 IF co=1 AND h=0 THEN niv=x+30:m1y=y 
980 IF n1ix+24>400 AND nix<460 AND niyi75 THEN niX=410:m1y=42:h=1 
990 MOVE nix,n1ly,1,0:FRINT CHR$(244) ; :PRINT CHR$ (245) 
1000 MOVE nix,niy-16:PRINT CHR+(246) ; :PRINT CHR$ (247) 
1010 IF. cno=1 THEN 930 
1020 IF cno=1 AND h=1 THEN n2x=x+26:n2y=y . 
1030 IF n2x+24>400 AND n2x<460 AND n2y4:290 AND n2y>32 THEN n2X=410:n2y=74:h=2 
1040 MOVE n2x,n2y,1,0:PRINT CHR+(240) ;:PRINT CHR$(242) ; 
1050 MOVE n2x,n2y-16:PRINT CHR+(241):PRINT CHR$(243) ; 
1060 IF cn=1 THEN 930 
1070 -I1F-co=1 AND h=2-THEN fx==+31:fy=y 
1080 IF fx+20:400 AND £x:2<450 AND fy<3100 THEN £X=410:fy=-20:y=-20:G0TO 1130 
1090 MOVE fx,fy,1,3:PRINT CHR+(248) 3 :PRINT CHR*(249) ; 
1100 MOVE fx ,fy-16:PRINT CHR+$(255) 3 :PRINT CHR*(239) y 
1110 IF cno=1 THEN 930 
1120 RETURN 
1130 n2y=n2y+7:n1y=n1y+7 
1140 nix=n1x-2:n2x=n2x-2 
1150 MOVE n2x,n2y,1,0:PRINT CHRE (240) 5 :FPRINT CHRE (242); 
1160 MOVE n2x,n2y-16:PRINT CHR+(241); :FRINT CHR$(243) ; 
1170 MOVE nix,niy:PRINT CHR+(244) ; :¿PRINT CHR$(245) ; 
1180 MOVE n1ix,n1y-16:PRINT CHR*(246) 5 :FRINT CHR$ (247) ; 
1190 FRAME ¿FRAME ¿FRAME ¿FRAME ¿FRAME 
200 IF n1y*430 THEN 1270 
1210 MOVE n2x,n2y,0,2:FRINT CHR*(240) 5; :PRINT CHR$ (242); 
1220 MOVE n2x,n2y-16:FPRINT CHR+(241) 5; :PRINT CHR$ (243) ; 
1230 MOVE nix,niy:PRINT CHR$(244) 5 :PRINT CHRE (245) ; 
1240 MOVE nix,niy-16:FPRINT CHR$(246) ; :FRINT CHRé (247) ; 
1250 MOVE nix,niy-23:PRINT CHR*(143) 1; :FRINT CHR+ (143) ; 
1260 GOTO 1130 
1270 MONDE 1: BORDER 17 :¿INK 0,26 INE 1,0 
1280 LOCATE 1,10 ¿PRINT "xxx !'! ENHORABUENA LO COSEGUISTES !! Xxx" 
1290 GOTO 1340 
1300 MODE 1: BORDER 17 :INK 0,26 : INE 1,0 
1310 LOCATE 5,10 ¿PRINT "*xx*xx LO SIENTO TE HAS QUEDADO Xxx" 


1320 PRINT:PRINT" XXX SIN OXIGENO Xxx" 
1330 GOTO 1340 
1340 LOCATE 1,19;PRINT " Xxx LO INTENTAS DE NUEVO [S/N] xxx" 


1350 Af=INKEYE 

13€0 IF Ar="S" OR Aé="s" THEN CLEAR:GOTO 190 
1370 IF Af="N" OR Aé+="n" THEN CLS:END 

1380 GOTO 1350 


FANTASMA 


38 REM eee FRESENTACION 22%:8,.2%%2% 


30 MODE O:IN" 0,0:BORDER 0 
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AONANRRRRRRRS? 


NN 


de did 


40 INK 1,3 
50 CLS 
60 LOCATE 3,6: PRINT"F ANTASMA" 


70 SOUND 1,568,20,7:SOUND 1,638,20,7:SOUND 1,568,150,7:SOUND 1,758,40,7:SOUND 1, 


716,40,7:SOUND 1, 758,40,7:S0UND 1,851,40,7: SOUND 1,9 
56,40,7:S0UND 1,902,170,7:SOUND 1,851,170,7 

80 FOR X=1 TO 700:NEXT 

90 FOR SAl=1 TO 18 


100 LOCATE 4,SA1:¿PRINT CHR$ (149) ¿FOR RET=1 TO 200:NEXT RET:¿NEXT SA1 


110 FOR SA2=1 TO 24 


120 LOCATE 16,SA2:PRINT CHR+(133) :FOR RET=1 TO 200:NEXT RET:¿NEXT SAZ 


:130 FOR SA3=1 TO 13 


140 LOCATE 12,SA3:FRINT CHR*(133) :FOR RET=1 TO 200:NEXT RET:NEXT SA3 


150 FOR SA4=1 TO 7 


160 LOCATE 19,S04:FRINT CHR$(149) :FOR RET=1 TO 200:NEXT RET:NEXT.SA4 


170 FOR SA3=1 TO 20 
180 LOCATE 8,SAS:PRINT CHR*$(138) ¿FOR RET=1 TO 200 :NEXT 
190 FOR SA6=1 TO 13 


RET:NEXT SAS 


200 LOCATE 14,SA6:PRINT CHR+(149) :FOR RET=1 TO 200:NEXT RET:NEXT SA6 


210 CO=0 

220 X=INT(RND(1)x20) 

230 Y=INT(RND(1)x24) 

240 IF (Y>24 OR Yx1) OR (X>20 OR X:=1) THEN 220 

250 LOCATE X,Y:PRINT CHR+ (143) 

260 SOUND 1,Y,X:SOUNO 1,CO,Y 

270 CO=CO+1 

280 IF CO>200 THEN 300 

290 GOTO 220 

300 MONDE 1 

310 INK 0,1: INK 1,16:CLS 

320 REM 2%%%8%8% INSTRUCCIONES 2888 

330 LOCATE 12,3:FRINT"F AN TASMA" 

340 LOCATE 12,4:FRINT"===============" 

350 LOCATE 1, 64 PRINT"Te encuentras en un oscuro bosque 
la, y delante de ti se planta una casa plagada de fa 
ntasmas horribles que quieren volverte loco." 

360 FRINT"Con la ayuda de tu tirachinas debes intentar 
empo limite, o de lo contrario te veras perdido." 


370 FRINT:FRINT" 4 a] 6" 

380 PRINT" "¿CHR* (241) 3" "5CHR$ (241) 3" 
390 PRINT " VENTANA VENTANA VENTANA" 

400 PRINT " e Ando fuero o CENTRAL DERECHA" 

410 PRINT:PRINT" 1 2 3" 

420 PRINT" "CHRE (241) 5" "MyCHRE (241) 3" 
430 FRINT " PUERTA PUERTA FUERTA" 

440 PRINT " IZQUIERDA CENTRAL DERECHA" 


450 PEN 3:LOCATE 13,24:PRINT"FULSA UNA TECLA" 
460 F+$=INKEY+ 
470 IF F+="" THEN 460 ELSE 480 


480 MOME O 

490 PAFER S:¿BORDER 1:INK 1,26:CLS 
500 TIEMFO=0 

510 REM ====== FANTASMAS ====== 

520 REM ===MARCEL RISQUES 85=== 

530 REM ========m>H============== 

540 REM 22%%22272% ESTRELLAS 22%22:2:8,28, 
3550 A=0 


560 ESTREX=INT(RND(1)x640) ¿ESTREY=INT (RNO(1)*400) 
370 PLOT ESTREX ,ESTREY :A=A+1 

580 IF A=100 THEN 600 

590 GOTO 360 

600 REM 2%:22%8%R%% CASA UU Lee e 


610 FOR XCASA=4 TO 17 


620 FOR YCASA=7 TO 17 
630 FEN 3:LOCATE XCASA,YCASA:PRINT CHRE (143) ¿NEXT :¿ NEXT 


640 REM ELLA SUELO UV VI RIA 


de las tierras del mas al 


acabar con ellos en un ti 


"5CHR+ (241) 


"CHR+ (241) 
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650 FOR SUEX=1 TO 20:FOR SUEY=18 TO 25 

660 FEN 9:LOCATE SUEX ,SUEY ¿FPRINT CHR*(127) ¿NEXT :NEXT 

670 REM EKLULLRIL LE VENTANAS LULA NR 

680 SOUNIO 1,18,10,5:SOUND 1,1000,4:SOUND 1,200,12,7:SDUND 1,100, 18,4 

690 X=0:PEN 8: LOCATE 3/19: PRINT CHR$ (131) :LOCATE 6,9 :FRINT CHR$ (131) ¿LOCATE 3,10: 
PRINT CHR*$(140) ¿LOCATE 6,10:FRINT CHR+(140) 

700 LOCATE 10,9:FRINT CHR$ (131) :LOCATE 11,9:PRINT CHR*+(131) :LOCATE 10,10:PRINT C 
HRE (140) :LOCATE 11,10:PRINT CHR*(140) 

710 LOCATE 15,9: PRINT CHR3 (131) :¿LOCATE 16,9: PRINT CHR+(131) :LOCATE 15,10:FPRINT C 
HR$ (140) ¿LOCATE 16,10:PRINT CHR+(140) 

720 REM ARA PUERTAS 2:2:8:2:2,2:2:2:2:8:2 

730 FOR YFUERTAS=14 TO 16 

740 LOCATE 6,YFUERTAS:PRINT CHR$(206) :LOCATE 74YPUERTAS:FRINT CHR*(206) 

730 LOCATE 10 ,YPUERTAS: PRINT CHR+$(206) :LOCATE 11, YPUERTAS:FRINT CHR* (206) 

760 LOCATE 14,YPUERTAS:PRINT CHR*$(206) :LOCATE 15, ,YPUERTAS:PRINT CHR* (206) ¿NEXT 


770 REM LEVLUNLLVAR E LUNA: LUV 

780 FEN 2:LOCATE 2/42 :FRINT CHRE (214) ¿LOCATE 2,¿3:PRINT CHR*+ (143) :LOCATE 2,4:PRINT 
E rl AL 3¿2:PRINT CHRE (212) ¿LOCATE 3, 4:PRI 

NT CHR* (215 

790 REM bs E O 0 0 LA 

800 FEN 4 

810  FAN=INT(RNO(1)*x6+1) 

20 IF FAN<31 OR FANS THEN 810 

830 IF FAN=1 THEN LOCATE S5S,10:FRINT CHR* (224) ¿FOR Tl=1 TO 320:X=1:¿NEXT:¿GOTO 890 
840 IF FAN=2 THEN LOCATE 11, 10:PRINT CHRE (224) ¿FOR Tl=1 TO 320:X=2:NEXT:GOTO 890 
870 IF FAN=3 THEN LOCATE 15,10: PRINT CHRé (224) ¿FOR Tl=1 TO 320:X=3:¿NEXT:GOTO 890 
860 IF Do 4 THEN LOCATE 7,15:FRINT CHRE (224) ¿LOCATE 7,16: FPRINT CHRE (253) ¿FOR TI 
=1 TO 320:X=4:NEXT:GOTO 890 

870 IF =p 3 THEN LOCATE 10,15:FRINT CHR* (224) ¿LOCATE 10,16:FRINT CHRE (253) ¿FOR 
Tl=1 TO 320:X=5¿NEXT'1X=1: GOTO 890 

880 IF FAN=6 THEN LOCATE 13,15:FRINT CHRE (224) ¿LOCATE 13,16:FRINT CHRE (253) ¿FOR 
Tl=1 TO 320:X=6:NEXT:GOTO 890 

890 REM 222228222% DISFAROS LLL eee eee 
900 AF=INKEYF:1F Aj="4" AND X=1 THEN LOCATE 34 10:PRINT CHRE (225) ¿FOR Tl=1 TO 300 
¿NEXT¿LOCATE 5,10:FRINT CHR$(238) ¿SOUND 1 410,20: FUNT 
OS=FUNTOS+1:GOTO 670 
910 AR+=INKEYS:IF Af="5" AND X=2 THEN LOCATE 11,10:FRINT CHRE (225) ¿FOR Tl=1 TO 30 
O¿NEXT¿LOCATE 11,10:FRINT CHRE(238) ¿SOUND 1,50,20:PU 
NTOS=FUNTOS+1 : GOTO 670 
920 AF=INKEY*$:1F Aj="46" AND X=3 THEN LOCATE 15,10:FRINT CHRE (223) :FOR Tl=1 TO 30 
O¿NEXT¿LOCATE 15,10:FRINT CHR*(238).: SOUND 1,50,20:FU 
NTOS=FUNTOS+1 2 ¿GOTO 670 
930 "AF=INKEY+:21F Af="1" AND X=4 THEN LOCATE 7,15:FRINT CHRE (22%) ¿FOR Tl=1 TO 300 
¿NEXT:LOCATE 7,15:FRINT CHRE (238) : SOUND 1,50,20:FUNT 
OS=FUNTOS+1:GOTO 670 
940 AR+=INKEYE:IF A+="2" AND X=5 THEN LOCATE 10,15:FPRINT CHRE (225) :FOR Tl=1 TO 30 
O¿NEXTiLOCATE 10,15:FRINT CHR+ (238) SOUND Ms FUN 
TOS=FUNTOS+1 : ¿GOTO 670 
930 A+=INKEYE:1F Aj="3" AND X=6 THEN LOCATE 15,15:FPRINT CHR+(225):FOR Tl=1 TO 30 
O¿NEXT:LOCATE 15,15:FRINT CHRE (238) ¿SOUNI 1,50,20:FU 
NTOS=FUNTOS+1:GOTO 470 
960 REM 22:2:2,2:8:8:% MARCADOR 22:8:2:22:8: 8 
970 FEN 3 
980 FEN 6:LOCATE 8,24:FRINT "FUNTOS: "“¿FUNTOS 
990 REM LLLLLRL% TIEMPO LL 

1000 TIEMPO=TIEMFO+1 

1010 1F TIEMFO=40 THEN 1030 

1020 GOTO 670 i 

1030 REM 2222%2%%% OTRA FARTIDA 222228 

1040 CLS:¿FEN 12 

1050 LOCATE 4,18:FRINT"FUNTUACION: ":FUNTOS 
1060 LOCATE 3,8:FRINT"GRACIAS CAMFEON" 

1070 LOCATE 2,25:PRINT"OTRA FARTIDA (3/N)3" 

1080 Lé=INKEYE 

1090 1F Lé="S" OR Lé="s". THEN 10 

1100 1F Lé="N" OR Lé="n". THEN. MODE 1:FAFER- O:FPEN 3 
1110 1F. NOT (L$="S" NE-bé=!2") AND NOT. td3="N" OR +434="n"1. THEN. 1080. 
¿(1120 1F La="" THEN 10806 : 
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LA ABEJA 


10 / SGXÍLA ABEJA 32 
20 * COPYRIGHT: M. JESUS CABELLO MARTINEZ 
Y 
F. ALONSO-FASTOR IEL COSO +1983% 


25 MODE O:BORDER OsINE 0,0: INE 1,2,8:PAPER O:FEN 1:CLS:SPEED INK S,S:¿LOCATE 3,12 
¿PRINT"LA ABE JA":FOR T=s1 TO.2000:NEXT 

30 MODE 1:BORDER O:SPÉED INE 50,S50:SYMBOL AFTER O:RESTORE 9000:FOR Z=0 TO 11:REA 
D C:INK Z,C:¿NEXT:INK 12,2,8: INE 13,6,26:FAFER O:FEN 

1:CLS¿FOR Z=1 TO 22:READ ES:LOCATE 1,Z:PRINT ES$:SOUND 1,100,5:NEXT:SOUND' 1,500,1 
0:GOSUB 9200 

40 IF INKEYS="" THEN: 40 

S0 CLS:IN$=CHR+ (174) :Jé=STRING+(39,32) ¿LOCATE 2,5:PRINT"DEFINICION ME LAS TECLAS 
DE JUEGO: ":LOCATE 1,7:PRINT IN$;"FARA SUBIR LA ABEJ 

A?" :GOSUB 9100:S$=L$:LOCATE 1,7:PRINT J*:LOCATE 1,7:PRINT "PARA SUBIR "¡5% 

60 LOCATE 1,9:PRINT INS;"PARA BAJAR LA ABEJA?" :GOSUB 9100:B+=L+:LOCATE 1,9:FPRINT 
J+:LOCATE 1,9:PRINT "PARA BAJAR "¡B* 

70 LOCATE 1,11:PRINT IN$;"FARA LLEVAR A LA DERECHA A LA ABEJA?" :GOSUB 9100 :Df=L3 
¿LOCATE 1,11: PRINT J$:LOCATE 1,11:PRINT "PARA LA DER 

ECHA ";D+ 

80 LOCATE 1,13:PRINT IN$;"PARA LLEVAR A LA IZQUIERIA A LA ABEJA?" :GOSUB 9100:1%= 

L$:LOCATE 1,13:PRINT J$:LOCATE 1,13:PRINT "PARA LA 1 

ZQUIERDA "¡13 

85 LOCATE 1,15:PRINT IN$;"PARA ABANDONAR EL JUEGO?" :GOSUB 9100:AB+=L$:LOCATE 1,1 

S:PRINT JS:LOCATE 1,15:PRINT "PARA ABANDONAR EL JUEG 

O "¡AB$ 

87 LOCATE 1,18:PRINT IN$;"NIVEL DE JUEGO? (1 DIFICIL - 5 FACIL)":GOSUB 9100 :VNJ= 

VAL (L$) : IF VNJ<1 OR VNJ>S THEN 87 ELSE LOCATE 1,18:FP 

RINT J$:LOCATE 1,18:PRINT"NIVEL";VNJ 

90 LOCATE 1,23:PRINT"SI ESTAS DE ACUERDO CON ESTAS TECLAS PULSA S SINO FULSA 

CUALQUIER OTRA TECLA" 

100 L$=INKEYS$:IF L$="" THEN-100 ELSE IF L$<>"S" AND Léc>"s" THEN 50 

105 NJ=VNJX10:PT=0 :NV=1 ¿VD=5 ¿KDÉ$=STRINGS$ (4,46) 

110 MODE O:SPEED INK 50,50:GOSUB 8200:FT=-1 

120 LL$=STRING$(20,LD$) ¿PEN 2:LOCATE 1,2:PRINT LL$:LOCATE 1,24:PRINT LL$:FOR Z=3 
TO 23:LOCATE 1,Z:PRINT LD$:LOCATE 20,Z:PRINT LD+:NE 

XT 

130 GOSUB 8000:GOSUB 8300 

140 RANDOMIZE TIME:FOR Z=1 TO NVX10 STEP NV:0=INT(Z/10+1) :1F 0>6 THEN O=6 

150 XO=INT(RNDXx18+2) :YO=INT(RNDX21+3) :1F TEST(XOX32-16,408-(Y0X16))<>0 THEN 150 
160 LOCATE XO,YO:0N O GOSUB 9300,9310,9320,9330,9340,9350 

170 NEXT:PEN 2:FOR Z=1 TO INT(NV/5+1):GOSUB 8100 :NEXT:YA=4 

180 FOR XI=2 TO 19:1F TEST(XFx32-16,408-(YAX16))=0 AND TEST(XI*X32-16,408-((YA+1) 

x16))=0 AND TEST(XIX32-16,411-(YAX16))=0 AND TEST(XI 

x32-16,411-((Y1A+1)xX16))=0 THEN XA=X1I:XI=2 

190 NEXT:IF XI=20 THEN YA=YA+1:GOTO 180 

200 SPEED INK 2,2:SX=1:SY=0:GOSUB 9550:FOR T=1000 TO 10 STEP -S:SOUND 1,T,1:SOUN 

D 2,T+10,1:NEXT 

205 IF 5Q(1)<>4 THEN 205 

210 Lé=INKEY+$:1F L$=AB+ THEN 10000 

215 FOR T=1 TO NJ:NEXT 
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220 IF L$=S$ THEN SY=-1:SX=0 

230 IF -L*$=B+ THEN SY=1:SX=0 

240 IF Lé=D+ THEN SX=1 :SY=0 

250 IF L*=1% THEN SX=-1 :SY=0 

255 TO=TEST ((XA+SX)x32-16,412-((YA+SY)*x16)) :T1= TEST ( (XA+5X)Xx32-16,412-((YA+SY-1) 
x16)):1F TO=2 OR Ti=2 THEN 9600 . 
260 TO=TEST ((XA+SX)X32-16,408-((YA+SY)x16)) :T1=TEST((XA+SX)*x32-16,408-((YA+SY-1) 
X16)):IF TOZ<>0 AND TO<>4 OR T1<>0 AND T1<>4 THEN. GOS 

UB 7000:IF TO=T1 THEN GOSUB 7000 


270 SOUND 1,500,3:GOSUB 9500 :XA=XA+SX : YA=YA+SY ¿SOUND 2,10,3:G0SUB 9550: 1F FT<10 
THEN 210 


280 Be T=1000 TO 10 STEP -10:SOUND 1,71,3,15:SOUND 2,T+100,2,12:SOUND 3,T+500,1, 
10:NEX 

290 IF SQ(1)<:4 THEN 290 

300 NV=NV+1:FOR Z=1 TO 100:L$=INKEYS$:NEXT:GOTO 110 

7000 1F TO=5 OR Ti=S THEN PT=PT+10:G05UB 8000 

7010 IF TO=3 OR Ti=3 THEN PT=PT+20:GOSUB 8000 

7020 IF TO=6 OR Ti=6 THEN PT=PT+40:GOSUB 8000 

7030 IF TO=9 OR Ti=9 THEN PT=PT+60:GOSUB 8000 

7040 IF TO=10 OR Ti=10 THEN PT=PT+50:GOSUB 8000 


7030 1F TO=11 OR Ti=11 THEN FT=PT+30:GOSUB 8000 

7060 RETURN 

8000 FEN 10:¿LOCATE 4,1:FRINT USING"PUNTOS: HR PT SOUNDO 1,50,3:FT=FT+1 :RETUR 

N 

8100 FEN 2:RANDOMIZE TIME +KD=RND:XI=INT(RNOX16)+3:XF=INT(RNODX16)+3:Y1=INT(RNOXx19 

+4) ¿YF=INT (RNIk19+4.) 

8103 IF ARS(XF-X1):*12 OR ABS(YF-Y1)>14 THEN 8100 ELSE 1F KO;0.5 THEN 8140 

8110 IF ARS(XF-X1):<2 OR ABES(YF-Y1):<2 OR TEST(XIx32-16,408-(Y1x16))<%0 THEN 8100 
8120 FOR kKi=X1 TO XF STEF SGN(XF-X1):1F TEST(K1x32-16,408- (Y1x16))=0 THEN LOCATE 
Ed,yYI3PRINT LOs ELSE Ki=99xXSGN(XF-XI1) 

8130 NEXT :RETURIN 

8140 FOR Ei=Y1I TO YF STEF SGN(YF-Y1):1F TEST(XIX32-16,408-(K1x16))=0 THEN LOCATE 
XI,Ei¿FRINT LOS ELSE Ki=99xXSGN(YF-YI) 

8150 NEXT ¿RETURN 

8200 FEN 10:LOCATE 6,1:FRINT"FRUTAS:":FOR O=1 TO 6:X0=3:YO=0*x3+3:LOCATE XO,YO:0ON 
O GOSUE 9300,9310,9320,9330,9340,9330:FEN 13:LOCATE 

5,YO:FRINT KDF¿USING "$$ ptos." ¿OX10:NEXT:FEN 12:LOCATE 4,24:FRINT"FARA CONTINU 
AR" GLOCATE 4,25:PRINT"PULSA UNA TECLA" 

8210 IF INKEY*="" THEN 8210 ELSE CLS:RETURN 

8300 FEN 1O:LOCATE 6,23:PRINT USING"VIDAS:4$$+" ¿VO RETURN 

9000 DATA 0,24,6,3, 15,19, 12,21,9,16,8,7 

9010 naTa " LA ABE 3 an Es un juego emocionante en el que lo" 
¿mas importante es comerse muchos frutoS.,,," Sin e 

mbargo, las paredes te impediran",,hacerlo y tienes que procurar no chocar,y,con 
ellas. 

9020 DATA ,,," Las teclas de movimiento de la abeja",,podras elegirlas tu mismo 
2... PULSA CUALQUIER TECLA FARA COMENZAR" 

9100 Lé+=INKEY*:1F L+="" THEN 9100 ELSE RETURN 

9200 SYMEOL 176,8,28,46,111,95,95,46,28: SYMBOL 177,8,110,223,191,191,794,356,0:5YM 
BOL 178,6,6,14,30,60,56,28,12:SYMBOL 179,0,0,60,90,2 

19,219, 90, 60: SYMBÓL 180,102,24,0,0,0,0,0,0 

9210 SYMBOL 181,24,36, bbs 129,129,66,36,24:SYMBOL 182,0,24,52,126,90,44,24,0:SYMB 
OL 183,0,108,190,191,191,95,126,56:SYMBOL 184,28,62, 

34,62,34,28,8,0:SYMBOL 185,0,0,0,65,34,28,42,34 : SYMBOL 186,65,65,93,65,28,0,0,0: 
SYMBOL 187,127,127,127,0,247,247,247,0 

9220 TUF=CHRS (22) +CHRE (1) :TOS$=CHRS (22) +CHR$ (0) :A1$=CHR$ (184) :A2$=CHR$ (185) :A3+$=C 
HR3 (186) ¿LI =CHR+ (187) 

9230 DIM 0%(15) 20% (1) =CHR3 (176) :0% (2) =CHRE (177) :0%$ (3) =CHR$ (178) 20% (4) =CHR$ (179) : 
Os+ (14) =CHR+ (180) :0% (5) =CHR*$ (181) :0%+ (15) =CHR+ (182) :0$ 

(6) =CHR+ (183) : 

9240 FOR Z=1 TO 10:NM$(Z)="AMSTRAD" ¿FT (Z)=100:NEXT ¿RETURN 

9300 PEN S5:PRINT 0%(0) ¿RETURN 

9310 PEN 3:PRINT O+(0) ¿RETURÑ 

9320 PEN 11:FRINT 0%(6) ¿RETURN 

9330 PEN 6:PRINT 0%(3) ¿RETURN 

9340 FEN 8:PRINT 0%(5) ¡TUS$:LOCATE XO,YO:FEN 10:PRINT 0O$(15) ¿TD+$:RETURN 

9350 FEN 9:¿FPRINT 0%(4)¿TUS$:LOCATE XO,YO:FEN 7:PRINT 0%(14)¿TD% ¿RETURN 
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9300 LOCATE XA,YA:PRINT" ":LOCATE XA,YA-1:PRINT" "*RETURN 

9550 PEN 4: LOCATE XA,YA:PRINT Als*$: PEN dá s|-OCATE XA, YA-1:PRINT A2$:PEN 13:LOCATE X 
A, YA:PRINT TUS;A3E; TDS: RETURN ' 

2600 INE72,2,B8:FEN 2:LOCATE XA,YA:PRINT A1$:LOCATE XA,YA-1:PRINT A2%:LOCATE XA,Y 
ASPRINT TUS;A3E5TD$:FOR T=1 TO 100:SOUND 1,1000,1 :SO 

¿UNO 2,10,1 ¿SOUND ' 3,3000,1:NEXT 

9610 IF $0 (19234 THEN 9610 

9620 INE 2,6:VD=VD-1:GOSUB 8300:FOR T=1 TO 1000:L$=INKEYS$:¿NEXT:1F VD>0 THEN 110 
ELSE (10000 

10000 IF PT<FT(10) THEN 10100 ELSE FOR Z=1 TO 10:L$=INKEYS ¿NEXT :NM$="" ¿PEN 1:CLS 
<GLOCATE 4,4:FRINT IN+$¿"TU NOMBRE?":FOR Z=1 TO 10 

10010 L+=INKEY+$:1F L$=CHR* (13) THEN Z=10:G0TO 10030 

10020 IF-Lé+="" THEN 10010 ELSE NM$=NM$+L$:LOCATE 5+Z,10:PRINT Lg 

10030 NEXT 

10040 pt (10)=pt:nm+(10)=nm+ 

10050 FOR Z=1 TO 10:FOR ZZ=1 TO 9:1F PT(ZZ)>=PT(ZZ+1) THEN 10070 

10060 K=PT (27) :FT(2Z)=PT(ZZ+1) :PT(Z2Z+1)=K :K$=NM8$ (22) ¿NM (22) =NM3$ (ZZ+1) :NM$ (2Z+1) 
=K+ 

10070 NEXT:NEXT 

10100 CLS:LOCATE 4,1 :PRINT"PUNTUACIONES :" ¿FOR Z=1 TO 10:FEN Z+1:LOCATE 1,ZXx2+1:P 
RINT NM+(Z) :LOCATE 14,ZxX2+1:PRINT USING "4HHRRR SP TUZ 

) ¿NEXT La . Lo) el 

10110 FEN 12:LOCATE 3,23:PRINT"O OTRA PARTIDA" :¿LOCATE 3,24 :PRINT"F OTRO FROGRAMA 


10120 LF=INKEY*+:1F Lé+="" THEN 10120 ELSE Lé+= UPPERS (L$) :1F L$="0" THEN MODE 1:FPEN 
1:GOTO 50 ELSE IF L$%"P" THEN 10120 

10130 MODE 1:BORDER 1:SYMBOL AFTER O: INK 0O,1:sINK 1,24:PAPER O:PEN o PRINT*FR 

EPARADO PARA EL SIGUIENTE PROGRAMA" :RUN"" 


BIORRITMOS 


2 INE O,1:INK 1,24: INk 2,6; INK 3,26:PAPER O:PEN 1:MODE 1 

10 CLS: ¿RESTORE 10100: ¿FOR I=1 TO f6:READ X*$: LOCATÉ 1,1: PRINT XS$:NEXT 1 

12 X$=INKEYS$:1F X$="" THEN 12 ÉLSE CLS 

50 RESTORE 10000 :DIM M(12) ¡M$(11) :FOR T=1 TO 12:READ X:M(I)=X:NEXT I:FOR I=0 TO 
11 :READ. X$:M$(1)=X$:NEXT. 1 i 

100 SYMBOL AFTER 220 

102 SYMBOL 220, 0,224,156, 208, 152,144, 28, le) 

104 SYMBOL 221,0, "224, 156,200,136,136,28,0 

106 SYMBOL 222,0, 224,156,200,136 232 928, e) 

108 SYMBOL 223, 224, 128, 220, 144, 248, 80, 80, 224 

110 MODE 1: INPUT"Fecha de nacimtento (AMM) "sn$ 

112 IF LEN(N$)<>10 THEN 110 | 7 

114 DN= VAL (LEFTS (N$,2)) ¿MN= VAL (MID$ (NS 14,2)) ¿AN=VAL (RIGHTS (N$,4)) t | 
116 INPUT"Fecha actual (XXTAXXTMMMX) 2 | "jas | 
118 IF LEN(A+$)<>10 THEN 116 

120 da=VAL (LEFT3 (as 12)) ¿Ma=VAL (MIDS$ (as, 4 ,2)) 1Ma=VAL (RIGHTS (as: ,4)) 

122 CLS:LOCATE 1,4: PRINT"FECHA DE NACIMIENTO : "sN$: LOCATE 1,7:PRINT"FECHA ACTUAL 
3 "¿AS:¿LOCATE 10,10:PRINT"CONFORME (S/N) " 


124 X$=INKEYS$:IF X$="" THEN 124 ELSE 1F X$="N" OR X$="n" THEN 110 ELSE IF X$="S" 
OR X$="s" THEN 130 ELSE 124 
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JIJI TY UY Y 


e) 


TITO 


130 CLS:LOCATE 18,1:PRINT"MENU":LOCATE 2,6:PRINT"1:BIORRITMOS DEL MES" :LOCATE 2» 
B:PRINT"2:BIORRITMOS MES PROXIMO":*LOCATE 2,10:PRINT" 
3:BIORRITMOS LARGO ALCANCE" :LOCATE 2,12:PRINT"4:CAMBIAR FECHAS" :LOCATE 2,14:PRIN 
T"S:FINALIZAR" ' 
140 X$=INKEY$:IF X$="" THEN 140 ELSE IF X$="1" THEN 500 ELSE IF X$="2" THEN 550 
ELSE IF X$="3" THEN 200 ELSE IF X$="4" THEN 110 ELSE 

IF X+3="3" THEN 5000 ELSE 140 : 
200 X1=AN :X2=MN :X3=DN :Y1=AA :Y2=MA :Y3=] :GOSUB 1000:GOTO 2000 


400 CLS:LOCATE 1,10:FRINT" Los graficos. permaneceran en pantalla hasta 
que pulses tecla" : 
413 x*SINKEYF:1F x%="" THEN 415 ELSE RETURN 


300 GOSUE 4001x1=an 1: 2=mn 21x3=dn :yl=aa:y2=ma:4y3=1 :GOSUB 1000:GOTO 450 
3550 GOSUE 400 :2x1=an 1x2=mn 1x3=dn :y3=1:1F ma=12 THEN yl=aa+1 1y2= 
3532 IF maz12 THEN yl=aa:y2=ma+1 
554 GOSUB 1000:G0TO 650 
600 CLS:RESTORE 10010:FOR i=1 TO 16:READ x*:LOCATE 339, 10PRINT x*:NEXT i 
601 FOR i=1 TO 19:LOCATE 3,i:PRINT CHR$(149) ¿NEXT i:n+=CHRE (154) +CHR$ (154) +CHRE ( 
1534) +CHRE (154) +CHR* (159) ¿LOCATE 3,20:PRINT CHR*(147) 
ingintantinezn ¿MIDE (n+,1,3) 
602 LOCATE 2,1:PRINT "1"¿CHR+(159) ¿LOCATE 2,10:PRINT "0" ;CHR$(159) ¿LOCATE 1,19:F 
RINT "-14"¿CHR+ (159) :LOCATE 8,21:PRINT "S 10 15 
20 23" ¿LOCATE 2,22:PRINT M$*(Y2-1)¿Y1 
604 IF Y2=2 AND Y114=Y1/4 THEN LOCATE 32,20:PRINT CHR*(154) 
606 IF M(Y2)>=30 THEN LOCATE 32,20:PRINT MIOF*(N3,4,2) :LOCATE 33,21:PRINT "30" 
608 IF M(Y2)=31 THEN LOCATE 34,20:PRINT CHRE (154) 
610 RETURN 
630 GOSUB 600:ND=M(Y2) :1F Y2=2 AND Y1/4=Y114 THEN ND=ND+1 
633 FOR I=DIAS TO DIAS+ND-1:X=I-D1AS+4 :Y4=9 .7-9XSIN(2x3.14159*i/23) 21y5=9.7-9XSIN 
(2x3.14159Xi/28) 2y6=9.7-9xXSIN(2xX3.14159xi/33) 
670 LOCATE x,y4:PRINT "F":¿LOCATE X,YS:PRINT "E":LOCATE X)Y6:PRINT "I" 
672 IF INT(Y4)=INT(Y5) THEN LOCATE X,YS:PRINT CHR$(220) 
674 IF INT(Y4)=INT(Y6) THEN LOCATE X,Y6:PRINT CHR$(221) 
673 IF INT(YS)=INT(Y6) THEN LOCATE X,Y6:PRINT CHR$(222) 
677 IF INT(Y4)=INT(YS5) AND INT(Y4)=INT(Y6) THEN LOCATE Xy YSG:PRINT CHR$ (223) 
679 NEXT 1 
700 x*=INKEYE: IF x3="" THEN 700 ELSE CLS:GOSUB 601 
703 LOCATE 2,1:PRINT"3":LOCATE 1,19:PRINT"-3" 
708 x+="SUMA DE BIORRITMOS":*FOR I=2 TO 19:LOCATE 38,1 :PRINT MID (X*,1-1,1) ¿NEXT 
1 
710 FOR I=0IAS TO DTAS+ND-1 :X=1-D00145+4 :14=SIN(2Xx3.14159Xi/23) :y5=SIN(2x3.14159Xi 
/28) :y6=5IN (2x3.14159Xxi/33) 
712 PEN 2:Z=INT((Y14+Y5+Y6+3)X3) ¿FOR J=19 TO 19-Z STEP -1:LOCATE XyJ¿FRINT CHR$(1 
4) GNEXT J¿:NEXT I:GFEN 1 
750 Xé=INKEY$:1F X$="" THEN 750 ELSE 130 
1000 DIAS=0:IF Yi-X1=1 THEN 1025 ELSE IF Xi=Y1 THEN 1300 
1003 FOR I=X1+1 TO Y1-1:DIAS=D1AS+365 
1010 IF 1/4=1X4 THEN DIAS=DIAS+1 
1020 NEXT 1 
1023 1F X2=12 THEN 1055 
1030 FOR I=X2+1 TO 12:DIAS=DIAS+M(1I) 
1040 IF I=2 AND X1/4=X1x4 THEN DIAS=01AS+1 
1050 NEXT.1 
1033 IF Y2=1 THEN 1090 
1060 FOR I=i TO Y2-1 :DIAS=0I1AS+1 
1070 IF I=2 AND Y1/4=Y1X4 THEN DIAS=DIAS+1 
1080 NEXT I : 
1090 TTAS=[TAS+M(X2)-X3:1F X2=2 AND X1/4=X114 THEN DIAS=DIAS+1 
1200 DJIAS=01AS+Y3:RETURN 
1300 FOR I=X2+1 TO Y2-1:DIAS=DIAS+M(1):1F I=2 AND X1/4=X114 THEN DIAS=DIAS+1 
1303 NEXT i 
1310 GOTO 1090 : , 
2000 GOSUB 400:CLS:PLOT 32,398,1:DRAW 32,170:DRAW 639,170:FLOT 32,340:T0RAW 639,3 
40 
2002 LOCATE 2,1:PRINT"1":LOCATE 2,4 :PRINT"O"*LOCATE 1,7:FPRINT"-1" 
2005 m=38:j=ma-1:FOR i=0- TO 9:3j=j+1:1F ¡=13 THEN ¡¿=1 
2006 m=m+2Xm(3) :FLOT m,168:PLOT m,166:LOCATE mi116-3,16:PRINT ¿¡¿NEXT i 
2010 PEN 2:LOCATE 1,18:PRINT "ROJO: ESTADO FISICO":PEN 3:LOCATE 1,20:PRINT "BLAN 
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CO: ESTADO EMOTIVO":LOCATE 1,24:FRINT "ABAJO: SUMA B 

IORRITMOS":PEN 1:LOCATE 1,22:PRINT"AMARILLO: ESTADO INTELECTUAL" 

2050 FOR I=DIAS TO DIAS+300: X=(I-01AS)*x2+34:Y4=SI1N(2x3.14159X1/23) :Y135=SIN(2x3.14 
1391/28) :Y6=SIN(2x3.14159X1/33) :Z=(Y14+Y3+Y6+3)Xx16 
¿2060 FLOT X o LOT 340 (1390) 43: PR0T X ,340+ (Y16x40) ,1 

2063 FLOT X, 174 ,3:DRAW X,174+Z 

2070 NEXT 1 

2100 x+=INKEY+: IF x3="" THEN 2100 ELSE 130 

5000 CLS:RUN" : 
¿10000 - DATA 31,28,31,30,31,30,31,31,30,31,30,31- . » 
10002 DATA "ENERO", "FEBRERO" ,"MARZO","ABRIL","MAYO" ," JUNIO" ,"JULIO","AGOSTO",'"SE 
FTIEMERE","OCTUBRE" , "NOVIEMBRE" ,"DICIEMBRE" 
(10010 DATA "IF E",,"I E E", "NS S","T T T","'EAQA","LODD,"100","G","E FE", 
"N 1 Mu, "Cc Ss Om, "I 1 T","A E 14," 1] ve,” o" 

10100 DATA " —CBIORRITMOS",," Con el presente programa podras calcu-" 
"lar los biorritmos, asi como su suma."," Frimero'ha 

s de introducir la fecha de","tu nacimiento (de la forma: 09-08-1964)" 

10101 DATA "y a continuacion la fecha actual.",," La opcion 1 calcula los biorri 
tmos del","mes, la 2 los del mes proximo y la 3 los” 

¿"de los proximos 10 meses.",,,,+" - FULSA TECLA FARA COMENZAR" 


SAD OS 


CRASH 


30 H REX ER A SH 

30 SYMBOL AFTER-0:MODE-O:BORDER-O: RESTORE 9100:FOR Z=0 TO 11 ¿READ es : INE Z y C5NEXT 
¿INE 12,6,26:5FEED INK 3,3:PAPER O:PEN 1:CLS | 

40 FOR Z=1 TO 12:FEN Z: LOCATE 6,12:PRINT"C RAS H":SOUND 1,2x100,20:SOUNO 2,2X2 

00,20 . 

50 IF SQ(1)<>4 THEN SO 

60 NEXT:GOSUBE 9500:FEN 1:MODE 1:RESTORE 9000:FDR Z=1 TO 24:READ f:LOCATE 1,Z2FR 
INT 4£*F3NEXT:FT=0:VO=3 

70 IF-INKEEYF="" THEN 70 

80.MOME 1:GOSUE S300:LOCATE 39,23: PRINT eF¿LOCATE 39,24:FRINT ex 

90 GOSUE 8900 :GOSUB 8800 :xx=2:1yy=5::tp=22:AX=1 :GOSUE 8s10:' estancia 1 

100 x5=2:y5=3:559+$="D0" :GOSUB 5000 :GOSUB 8700 

110 OB=1 :GOSUB 1000 

120 CLS:GOSUE 8500 :LOCATE 39, 10: PRINT E*:LOCATE 39,11:FRINT E*:GOSUE 8900 :GOSUE 

88007XX=10:YY=19:1F=1:4X=-1: GOSUB 8510:XX=10:YY=19:7T + 

F=16:4X=1:G0SUB 8510:XX=38:YY=12:TP=23:AX=-1 :GOSUE 8S10:XS=2:YS=23:5S$="D" ¡GOSUB 
5000 :GOSUB 8700:0B=4:GOSUR 1000 

130 CLS:GOSUE 8S500:LOCATE 39,10:FRINT Ex: LOCATE 39,11: PRINT Es :GOSUB 8900 :GOSUE 
B800:XX=2:YY=12:TF=20:AX=1: GOSUE 8510:XxX=38:TF=20: YY 

=12:4X=-1:G0SUB 8510:XS=2 :YS=10:SS+="D0" :GOSUB 5000 :GOSUE 8700:0B=7:GOSUE 1000 
140 CLS:GOSUB 8500:¿LOCATE 39,23:FRINT ES: LOCATE 39,24 :FRINT E*+:GOSUB 8900: GOSUB 
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8800:XX=2:YY=12:TF=20:4X=1 :GOSUB 8510:FOR Y=20 TO 24 

¿LOCATE 5,Y:FRINT STRING (29,172) ¿NEXT :¿XX=34 :YY=20:TF=39:A4X=1 :GOSUB 8510 

150 XS=2 :YS=10:58$="D" :GOSUB 5000 :GOSUB 8700:0B=10:GOSUB 1000 

160 CLS:GOSUB 8500:LOCATE 39,23:PRINT EF :LOCATE 39,24:PRINT E*+:GOSUBE 8900 :GOSUE 

8800: FOR XX=4 TO 37:1F RND<0.5 THEN LOCATE XX,24:PRI 

NT LO 

170 NEXT :XS=2:YS=23:5S+$="D"::GOSUB S5000:GOSUB 8700:0B=13:GOSUB 1000 

180 CLS:GOSUB 8500 :LOCATE 39,22:FRINT "F"“¿LOCATE 39,23:FPRINT "I"¿LOCATE 39,24:FR 
INT"N":GOSUB 8900 :GOSUE 8800:XX=20:YY=10:TP=5:AX=-1:; 

GOSUR 8510:XX=20:YY=10:1P=35:4X=1:G0SUE 8510:1XS=2:Y8=23:5S$="D":GOSUE 5000 :GOSUB 
8700:0B=16:FI=1:GOSUB 1000 

999 GOTO 999 

1000 Lé=INKEEYE IF Lazo" THEN Lé=UPFERE (LE) ¿GOSUB 7000:ELSE 1200 

1010 1F Lé="0" AND T2= si AND Ti=0 AND ES=0 THEN GOSUB S100:XS=XS-1:SS+="1":GOSUE 
S5000:G0TO 1100 1 

1020 IF L+="WN" AND T4=1 AND T3=0 AND ES=0 THEN GOSUB 5100:XS=XS+1:SSti="D0":G0SUB 

5000:G0TO 1100 

1030 IF. -Lé+="A". AND T2=0 AND Ti=0 ANO ES=0 THEN GOSUB S5100:XS=XS-1:YS=YS+1:SS+="1 
":GOSUB 5000 ELSE 1F Lé="A" AND Ti=1 AND TS=0 AND ES 

“THEN -GOSUR “100: xXS=XS-"1:Y8S=YS-1:S58%="1":G60SUB 5000 

103% IF Li="A4" THEN 1100 

1040 IF Li="S" AND T4=0 AND T3=0 AND ES=0 THEN GOSUB 5100:XS=XS+1 :YS=YS+1:SS+="D 
"3GOSUB 5000 ELSE IF Lg="S" ANDO T3=1 AND Tó=0 AND ES 

=0- THEN -GOSUB 5100:XS=XS+1:YS=YS-1:S898+="D":G0SUB 5000 

1045 1F Lgé="S" THEN 1100 

1030 IF L+="0" AND ES=0 THEN GOSUB 7200:FRINT CHRE (22) ¿CHR* (1) :PEN 2:FOR Y=YS-1 
TO TES STEP -1:LOCATE XS,Y:FRINT ES$:S0UND 1,1000,1: 

SOUND 2,1500,1:NEXT:FRINT CHRE(22) ¿CHRE(O) :FEN 1:ES=1 

1055 IF QES=1 THEN 0ES=0:ES=0 

1060 TF Lé="P" AND YS33 AND ES=1 THEN E+=ES+:GOSUB S51001E%+=CHRE (32) :YS=YS-1 :G60SU 
E-3O00 ELSE IF La="F" THEN GOSUE 5100:G0SUE 7300:G60S 


UE 5000:1ES=0 

1100 K=0FOR 251 TO 7:1F XS=XF(Z) AND. (YS=YF(Z) OR YS+1= Joa 344 THEN K=Z4Z=0 
1110 MEXT:1F Kx:*0 THEN LOCATE XF(k) JYECED)GFRINT EX :GOSUB. 50003 KF()=04% YE (E) =0%3FT 
=RT+100 + GOSUE 8800 

1120 TF Exc =1 THEN GOSUE 5100:GOSUBE 7300:GOSUB 5000:ES=0 

1130 1F XS: 123000 


1200 PEN 3+I1F-X0=0 THEN XO=INT(RNDX37+2):Y0=4:0= INT(RNDICTIME)X3+0E) :1F XO=XF(1) 

OR X0=XF (2) OR XO=XF(3) OR XD=XF(4) OR XO=XP(5) OR X 

O=XF(6) OR X0=XF(7) THEN XO=0:GOTO 1200 ELSE LOCATE XO,YO:FRINT 0% (0) 

12 10 LOCATE XO,YO:FRINT Ex:YO=Y0+2:T=TEST(XOX146- 8, 400=(YOX16- 123):1% T=1 AND XOxz 
¿XS OR YO:24 THEN XO0=0:G0TO 1000 

1220 LOCATE XO,YO:FRINT 0%(0):1F XO=XS AND (YO=YS OR YO=YS+1) THEN 2000 

1230 FEN 1: ¿GOTO 1000 

2000 FOR 2300 TO 1000 STEF 10:SOUND 1,Z,2:SO0UNIO! 242+100,2:NEXT 

2003 1F SQ(1)<:4. THEN 2005 

2010 SOUND 1 11000,5 

2013 VO=VD-1:11F VOz<1 THEN 2100 

2020 LOCATE 26,1 :FRINT STRINGE (13,32) ¿GOSUB 8900:GOSUB 5000:X0=0:G0TO 1000 

2100 LOCATE 7,12:FRINT"SE TE TERMINARON LAS VIDAS":FOR Z=1 TO 3000: NEXT 

2110 CLSiFEN 1: LOCATE 3,3 :FRINT"HAS OBTENIDO", FT;"FUNTOS" :LOCATE 3,10:FRINT"FARA 
OTRA FARTIDA FULSA LA TECLA F"*LOCATE 3; 12:PRINT"FA 

RA OTRO FROGRAMA FULSA LA TECLA F" 

2120 LésINKEYE:1F Lé="" THEN 2120 ELSE L+=UFFERS (LE) :1F Lé="F" THEN RUN ELSE 1F 

Lé="F" THEN 10000 

2130 GOTO 2110 

3000 XO=0: INE 1,26,6:FOR Z=300 TO 10 STEF -10:SOUND 1,Z2,2:S0UND 2,Z2+10,2:NEXT: IN 

E 1,26:FEN 3 

3010 1F 50(1)<:4 THEN 3010 

3013 IF FIzxz0 THEN 3500 

3020 LOCATE 1,25:FPRINT"FASAMOS A LA SIGUIENTE ESTANCIA (S/N)" 

3030 LF=INFEYE:IF Lé="" THEN 3030 ELSE L+=UPPERS(Lé):1F Lé="N" THEN LOCATE ds 
PEN 1:FRINT STRING (39,172) :GOTO 1000 

3040 1F Lé="S" THEN RETURN 

3030 GOTO 3030 

3300 LOCATE 12,25:PRINT"FIN DE LA AVENTURA" :FOR T=1 TO 3000:NEXT:GOTO 2110 

3000 LOCATE x5,ys:+1F ss+="D" THEN FRINT SDis+ ELSE PRINT Sl1+ 
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5010 LOCATE XS,YS+1: IF SS*="D". THEN PRINT SO2% ELSE FRINT SI2% 

5020 RETURN : 

5100 FEN 2:LOCATE x5,ys:PRINT EF¿LOCATE XS,YS+1:PRINT E%:SOUND 1,100,1:PEN 1:RET 
URN 

7000 TX=XS-1:TY=YS+1:GOSUB 7100:T1=T:TY=YS+2:G0SUB 7100: T2=T :TX=XS+1 :GOSUE 7100: 
T4=T ¿TY=YS+1 :GOSUB 7100:T3=T :TY=YS:GOSUB 7100: T6=T:T 

X=XS-1:GOSUR 7100: T5=T ¿RETURN 

7100 T=TEST(TXkx16-8,400-(TYx16-12)) ¿RETURN 

7200 E=0:FOR Z=1 TO 7:1F XS=XF(Z) THEN K=Z:Z=9 

7210 NEXT:IF Z=8 THEN TES=3 ELSE TES=YF(k)+1 

7230 1F YS-YF(kK)=1 THEN LOCATE XF(E),YF(E)GPRINT Ef2XF(E)=0:YP (K£) =0:0ES=1 :FT=FT+ 
100 :GOSUB 8800 

7240 RETURN 

7300 FOR Y=3 TO 25:1F TEST(XS5*x16-8,400-(Ykx16-12))=1 THEN J=Y:Y=99 

7310 NEXT:YS=J-2 RETURN 

8500 FEN 1:LOCATE 1,2:FRINT STRING*+ (39,172) ¿LOCATE 1,235: FRINT STRING+(39,172):FO 
R y=2 TO 25:LOCATE 1,y:FRINT 1d*:LOCATE 39,y:PRINT 1 

dá ¿NEXT ¿RETURN l bl 
8510 FOR y=yy TO 24:LOCATE xx,y:FRINT 1d+:NEXT :yy=yy+lixx=xx+AX21F xx2stp THEN $ 
510 ELSE RETURN 

8700 FOR Z=1 TO 7 

8710 XF=INT(RNIIX37+2.5) ¿YP=INT(RNDxX21+3.5) :1F TEST(XF*x16-8,400-((YF+1)x16-12))<:> 
O THEN 8710 

8713 FOR Y=1 TO Z:1F XF=XF(Y) THEN Y=99 

8717 NEXT:IF Y=100 THEN 8710 

8720 FEN 2:LOCATE XF,YF¿FRINT PRE:XF(Z)=XP:YF(Z)=YF:NEXT:FEN 1:RETURN 

8800 FEN 3:SOUNO 1,10,10,15:S0UNO 2,100,10:LOCATE 10,1:PRINT USING"**4$%$" ¡pt PEN 
1 ¿RETURN 

8900 PEN 3:LOCATE 3,1:PRINT"FUNTOS:"¿LOCATE 20,1:PRINT"VIDAS: "¿FOR Z=1 TO VD:LOC 
ATE-26+7x2,12FRINT SI1%:NEXTPEN 1:RETURN 


9000 DATA " CRASH",," Es un juego en el que hay que tener",ne 
rvios de acero para sobrevivir.,," El juego esta di 

vidido en 6 estancias",en las que debes recoger las perlas.," Como obstaculos t 
endras todo tipo de" 

9010 DATA objetos que caeran a gran velocidad,desde cualquier punto.," El movim 


iento en horizontal se realiza",con las teclas O (a 


la izquierda) y W,(a la derecha); subir o bajar escalones,con las teclas A la la 
izquierda) y S,yí(a la derecha). 


9020 DATA". Fara subir a por. las perlas debes" ,tender una escalera con la tecla 


O y,subir por ella con la tecla F.,," El juego term y 
ina si recorres todas las",estancias o acabas con tus cinco vidas.," QUE TE 
NGAS MUCHA SUERTE! !!", 


9030 DATA " FULSA CUALQUIER TECLA PARA COMENZAR" 
9100 DATA 0,26,24,6,8,18,2,20,13,15,12,7 
9500 SYMBOL 130,112,176,112,32,120,204,204,204:SYMBOL 131,220,120,48,48,48,48,11 
2,240:SYMBOL 132,112,104,112,32,112,200,204,204 :SYME 
OL 133,236,120,48,48,48,48,56,60:S11$=CHR$ (130) :SI2$=CHR$ (131) :SD1é$=CHRE (132) ¿Sh 
24=CHRE (133) e 
95310 SYMBOL 150,90,205,40,16,126,126,60,24:SYMBOL 151,149,149,86,100,126,126,60, 
24 SYMBOL 152,36,90,36,36,126,126,60,24:SYMBOL 153,1 
28,130,131,187,254,126,70,34:SYMBOL 154,0,0,0,58,127,127,168,112:SYMBOL 1551,0, 0, 
0,0,48,123,255,72 
95320 SYMBOL 156,0,0,0,255,255,126,60,60:5YMBOL 157,639,127,248,152,24,24,24,2418Y 
MBOL 158,24,60,36,24,60,102,102,102:SYMBOL 159,1,1,5 
7169,235,137,249,255:SYMBOL 160,255,253,135,133,135,133,255,66 : SYMBOL 161,0.,0,25 
5,171,213,171,213,255 
7530 SYMBOL 162,0,0,0,0,0,3,252,112:SYMBOL 163,0,0,0,0,248,248,255,248:SYMBOL 16 
4,234,127,127,126,60,60,126,126:SYMBOL 165,16,40,168 
1234 ,239,40,40,16:SYMBOL 166,31,4,14,153,250,188,37,126:SYMBOL 167,60,126,126,12 
6,36,36,24,24 y | 
9540 SYMBOL 170,147,84,165,40,139,100,33,149:EX$=CHR$ (170) ¿DIM 0$(18):FOR Z=1 TO 
18:0% (2) =CHRE (149+Z) ¿NEXT 
(9350 SYMBOL 171,255,195,129,129,255,195,129,129:SYMBOL 172,127,127,127,0,247,247 
12470: SYMBOL 173,66,36,24,231,24,36,66,0:es4$=CHR$ (1 
71) 21d+=CHR3 (172) :pré=CHR3 (173) 2e=CHR$ (32) ¿RETURN 
NP 1: INE 0,1:FAPER OPEN 1:CLS:PRINT"PREPARADO PARA EL SIGUIENTE PROGR 
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CIRCUITOS ELECTRICOS 


Lo ¿2 CIRCUITOS ELECTRICOS 5; 

30 * COPYRIGHT OM.J.C. 2 F.A.F. 1985, 

30 BORDER 1:MODE Os INE 0,1: INK 1,26,6:SPEED INE S,S:INK 2,24: INK 3,6:PAFER O: FEN 
1:CLS:LOCATE 6,8:PRINT"CIRCUITOS":LOCATE 5,14: PRINT 

"ELECTRICOS "*FOR T=1 TO 2000:NEXT:INK 1,26: MODE 1 e 

40 GOSUÉ 9100 :RESTORE 9000:FOR Z=1 TO 25:READ EsF:LOCATE 1,Z:FRINT E*:SOUND 1,100 
¡23 NEXT ¿SOUND 1,200,5:GOSUE 9110 

50 IF-INKEYE="" THEN 50 

60 MODE O: INE 4,8: INK 5,18:INkK 6,2: INK 7,20: 1Nk 8,13:INkK 9,15: INkK 10,12: Nk 11,7 
¿FEN 1:CL5 

63 DIM A(24,2),0 (25) ,E(25) 

70 LOCATE 2,1:FRINT"CIRCUITO ELECTRICO" 

80 FEN 2:FOR Y=3 TO 18 STEF S:FOR X=2 TO 17:LOCATE X,Y:PRINT CHé:NEXT:NEXT 

YO FOR X=2 TO 17 STEF 15:FOR Y=3 TO 18:LOCATE X,Y: PRINT CUE ¿NEXT:NEXT 

100-PEN 9:CC=65:FOR Y=3 TO 18 STEP S:FOR X=2 TO 17 STEP SiLOCATE X,Y:PRINT CHRE( 

00) 20C0=CC+1ANEXT:NEXT' 

110 plé="N":slé="0":pl=78:51=79 

180 GOSUB 9200:GOSUB 2000:IF K=100 THEN 150 ELSE E(S)=5:NF=S:GOSUB 3000 

190 LOCATE 1,24: INFUT"CUANTAS BOMBILLAS" ¿NB 

200 GOSUE 9200: IF NB<0 OR NE*12 OR NEx< INT (NB) THEN 190 

210 GOSUB 9200 

220 FOR Z=1 TO NE 

230 LOCATE 1,24: INFUT"DESIE LETRA "¡FLé:PL$=UPPERS (PLE) 1PL=ASC (PLE) 11F PL: :65 OR 

PL:80.OR. LEN(FL)54- THEN GOSUB-9200:G60T0 230 

240 LOCATE 1,25: INFUT"HASTA LETRA ";¡SL+:SL£+=UPFERS(SLE) :SL= ASC (BL 1F SLi65 OR 
S5L:80 OR LEN(SLE)*1 OR PL:SL THEN GOSUB 9200:G0TO 23 

Ó 

2530 GOSUB 9200:GOSUB 2000: 1F K=100 THEN 230 ELSE E(S)=1:GOSUB 3100:NEXT 

260 LOCATE 1,24: 1INFUT"CUANTOS TIMBRES" ¿NT 

270 GOSUB 9200: 1F NT20 OR NT>12 OR NT<*INT(NT) THEN 260 

280 GOSUR 9200 | 

290 FOR Z=1 TO NT 

300 LOCATE 1,24: INFUT"DESDE LETRA "5PL$:PLé$=UPFERE (PLE) ¿FL=ASC(PLE) :21F PL265 OR 
“L.580 OR LEN(FLE) 51 THEN GOSUB 9200:G0TO 300 

310 LOCATE 1,25: INFUT"HASTA LETRA "3SL+:SL+=UPPERE (SL+) ¿SL=ASC(SL$) :1F SLI6S OR 
SL*80 OR LEN(SLE)3*1 OR FL*SL THEN GOSUBE 9200:GOTO 30 

(0) j 

320 GOSUE 9200 :GOSUB 2000: 1F- K=100 THEN 300 ELSE E(S)=2:G0SUB -3200:NEXT 

330 LOCATE 1,24: PRINT"CUANTOS" : INPUT" INTERRUPTORES" ¿N1 

340 GOSUB 9200:1F NIz0 OR NI>12 OR NIz<*INT(NI) THEN 330 

350 GOSUE 9200 

360 FOR Z=1 TO NI 

370 LOCATE 1,24: INFUT"DESOE LETRA "¡PLE:FLE=UFFERE (PLE) GPL=ASC(UPLE) 21 EL6S OR 
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FL:80 OR LEN(PL*)1 THEN GOSUB 9200:GOTO 370 

380 LOCATE 1,23: INFUT"HASTA LETRA "¿SL :SLE=UFFERE (SL) :SL=ASC(SLE) :1F SLI65 OR 

SL.*80 OR LEN(SLE) 1 OR FLSL THEN GOSUB 9200:G0TO 37 

O 4 

390 GOSUB 9200:GOSUB 2000:1F K=100 THEN 370 ELSE E(S)=3:GOSUB 3300 

400 NEXTFEN 2:RESTORE 9400:FOR Y=3 TO 18 STEF S:FOR X=2 TO 17 STEF S:¿READ A:LOC 
ATE X,Y:FRINT CHRE CA) ¿NEXT:NEXT 

410 GOSUB 2500 

420 Lé=INEEYF:1F Li="" THEN 420 

430 LE=UFFERE (LE). ¿SOUNO 1,10,3 

440 IF Lé="A" THEN 10000 

430 IF Li="0". THEN ERASE A,C,E:GOTO 60 

460 1F Lé="F" THEN 4000 

470 IF Lé="I" -THEN-5000 

480 GOTO 420 

2000 1F FL:i69 THEN R=464:YY=2 ELSE 1F PL:273 THEN R=68:YY=7 ELSE 1F FL<77 THEN R=7 

2BiYY=12 ELSE R=76:YY=17 

2010 XX=(PFL-R)xX5-1:1F ABS(PL-SL)<1 THEN XX=XX-2 :YY=YY+3 

2020 S=(XX+1)/5:1F YY=2 THEN S=S ELSE 1F YY=7 THEN S=5+3 ELSE IF YY=12 THEN S=S+ 

6 ELSE 1F YY=17 THEN 5=S+9 ELSE 2040 

2030 GOTO 2045 

2040 S=(XX+3)/3S+12:1F YY=10 THEN S=S+4 ELSE IF YY=13 THEN S=5+8 

2045 1F S=14 OR S:1%5 OR S=18 OR S=19 OR S=22 OR S=23 THEN E=100:G0T0O 2070 

2030 E=Q0+1F A(5S,1):<:0 AND A(S,2):2:%0 THEN E=100 

2060 1F E=100 THEN 2070 ELSE A(S,1)=XX:A(5,2)=YY 

2070 RETURN 

2500 PEN 2:LOCATE 1,21:FRINT"F FONER EN MARCHA":LOCATE 1,22:FRINT"I ABRIR/CERRAR 
"G6LOCATE 3,23FRINT"INTERRUFTORES"“LOCATE 1,24:FRINT 

"0 OTRO CIRCUITO"“LOCATE 1,2:FRINT"A ABANDONAR" ¿RETURN 

210 FOR Z=20 TO 230:LOCATE 1,Z:FRINT STRING* (19,32) ¿NEXT :RETURN 

3000. SOUND 1,100,5:FEN 6:LOCATE A(S,1),9(S,2)+1:FRINT Fi*:LOCATE A(S,1),A(5,2)+2 
¿¡PRINT FSR2:FEEN 1:RETURN 

304% IF S:=14 OR S:15 OR S=18 OR S=19 OR S=22 OR S=23 THEN 2070 

3100 FEN 8:LOCATE A(S,1),4(S,2):PRINT BAF:¿FEN 11:LOCATE A(S,1),4(S,2)+1:FRINT Ex 
¿FEN. 1 ¿RETURN 

3150 PEN 1:LOCATE A(S,1),4(S,2) :¿FRINT BEF:¿FEN 11:LOCATE A(S,1),0(S,2+1:FRINT Ex 
¿FEN 1:RETURN 

3200 FEN 4:LOCATE A(S,1),4(S5,2) :FRINT TAF:FEN S:¿LOCATE A(S,1),4(S,2)+1:FRINT Té: 

FEN 1:RETUEN 

3250 FEN 7:SOUNT 1,10,1:LOCATE A(S,1),0(S,2) :FRINT TEF:¿FEN S:SOUNO 1,10,1:LOCATE 
A(S,1),A(S, 22 +1:FRINT TRE FEN 1:RETURN 

3300 -FEN 3GA4LOCATE A(S,1),4(8,2)+1:1F 5313 THEN PRINT IH*:LOCATE A(S,1)-1,4(8,2)1 

FRINT OS ELSE FRINT IVE¿LOCATE A(S,1)+1,4(5,2)+1:FRIN 

TO RIGHTE(STRE(S) ¿¡QAES(S:9)+1) 

3310 FEN 1:RETURN 

3330 FEN 3:LOCATE A8(S,1) ,4(S,2)+1:1F S:313 THEN PRINT CHé ELSE FRINT CV% 

3360 FEN 1:RETURN 

4000 GOSUB 2310:LOCATE 1,24: FRINT"FULSA N FARA FARAR":LOCATE 5,25:FRINT"EL CIRCU 
ITO" 

4003 IF E(21)=3 OR E(10)=3 OK E(12)=3 OR E(24)=3 THEN RESTORE 9700: FOR Z=1 TO 18 
¿READ X:C0(X)=0:NEXT:GOTO 4070 

4010 IF E(17)=3 OR E(20)=3 THEN RESTORE 9710:FOR Z=1 TO 10+READ X10(X)=0:¿NEXT:2G60 

TO 4030 

4013 IF E(13)=3 OR E(1)=3 OR E(2)=3 OR E(3)=3 OR E(16)=3 THEN T=0 ELSE T=1 

4017 RESTORE 9720:FOR Z=1 TO S:¿READ X2C000=T*NEXT 

4A0ZO.-1IF-E(4)=3-OR-E(3)=3 OR E(6)=3 THEN T=0- ELSE Tui 

4022 FOR Z=4 TO 6:0(Z)=T:NEXT 

4023 1F C(1)=0 AND C(4)=0 THEN T=O ELSE Tui 

4027 C(17)=T:C(20)=T 

4030 1F E(7)=3 OR E(8)=3 OR E(9)=3 THEN T=0 ELSE T=1 

4033 FOR Z="7 TO 9:0(Z)=T:NEXT 

4040 1F- C(17)=1 OR C0(7)=1 THEN T=1 ELSE T=0 

4030. RESTORE 9730¿FOR Z=1 TO 44¿READ-X10(X)=T*NEXT 

4070 LE=INEEYFE:IF Lé="N" OR Lé="n" THEN 4200 

4080 RESTORE 9700:FOR Z=1 TO 18:READO S 

4090 1F C(S)=0 THEN 4130 

4100 1F E(S)=1 THEN GOSUB 3150 

4120 IF E(S)=2 THEN GOSUEÉ 3250:SOUND 1,100,5,15:G0SUB 3200 
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4130 NEXT 

4140 GOTO 4070 

4200 RESTORE 9700:FOR Z=1 TO 18:READ S:C(S)=0:1F E(S)=1 THEN GOSUE 3100 ELSE IF 
E(S)=2 THEN GOSUB 3200 

4210 NEXT:GOSUB 2310:G0SUB 2500:GOTO 420 

5000 FEN 2:GOSUB 2510:LOCATE 1,24: INPUT"QUE INTERRUPTOR"¿IN:IF IN<0 OR 10:24 OR 
IN<“INTCIN) THEN GOSUB 25300:GOTO 420 

5010 S=IN:IF E(S)=3 THEN GOSUB 3350:E(S)=4 ELSE IF E(S)=4 THEN GOSUE 3300:E(5S)=3 


20 GOSUB 7200:GOSUB 2500:GOTO 420 

2000 DATA " CIRCUITOS ELECTRICOS EN SERIE",,,,"” Con este programa podras di 
setfar,a tu","gusto, circuitos electricos en los que" 

¿se —|combinan distintos componentes como,"son: FILAS, BOMBILLAS, TIMBRES E", INTER 
RUETORES a 


9010 DATA ,," Todos estos componentes podran ir",colocados en una parrilla con 
24 posiz,ciones distinmtas.,,”" El objetivo del progr 


ama es que por",mecdio del juego se puedan aprender las,bases del funcionamiento 
de la electri-,cidad. 

9020 DATA ,," Si quieres abandonar el programa a", medias pulsa la tecla A.,y" 
FULSA UNA TECLA FARA CONTINUAR" 

9100 SYMBOL AFTER 32:SYMBOL 64,118,216,0,216,102,102,102,0s+RETURN 

9110 SYMBOL 190,7,24,33,36,394,17,9,9:5SYMEOL 191,224,24,196,36,68,136,144,144:38YM 
EOL. 192,31,15,7,13,3,7,1,1:SYMEOL 193,248,240,224,24 

0,192,224,128,128:SYMBOL 194,7,31,63,63,63,31,15,15:SYMBOL 195,224,184,220,220,2 
20,184,240,240 

9120 SYMEOL. 196,7,7,7,7,7,7113,13:SYMBOL. 197,224,224,224,224,224,224,240,240:58YM 

EOL. 198,3,12,17,33,32,17,14,7:SYMBOL 199,240,56,204, 

198,134,12,56,240:5YMBOL 200,35,76,147,162,160,145,78,39:SYMBOL, 201 ,244,58,173,%2 
30,134,13,38,244 

9130 SYMBOL 202,12,28,48,227,193,0,0,0:SYMBOL 203,24,24,192,192,96,48,24,24:8YME 
OL 204,0,0,0,232,208,32,127,125:SYMBOL 205,121,125,1 
234127,123,126,127,127:SYMBOL 206,0,64,32,23,11,4,254,62 1 SYMBOL 207/2224190,3042 
4 190,126,254 

9140 Bé=CHRE (192) +CHR$ (193) ¿BA$=CHRE (190) +CHRE (191) ¿BEF=CHRE (194) +CHRE (195) ¿Té=C 
HERE (196) +CHRE (197) :¿TAS$=CHRS (198) +CHRE (199) :TEF=CHRE ( 

200) +CHRE (201) : 1Hé=CHR$ (202) :1V$=CHRE (203) :Fié=CHRE (204) +CHRE (206) 2 F2é=CHRE (205 
IAHCHRE (207) ¡EX=CHR$ (32) ¡EESSEF+ES 

915350 CVE=CHRE (149) ¿CHé=CHR+* (154) ¿VD$=CHRE (151) ¿VIé=CHRE (157) ¡HB$=CHRE (158) ¡H9+=C 
HRS (133) ¿CRé=CHRE (139) ¿SOF=CHRE (150) ¿SI$=CHRE (156) E 

I*=CHRE (133) ¿BO*=CHRE (147) ¿RETURN 

9200 LOCATE 1,24:FRINT STRING* (20,32) ¿LOCATE 1,25:PRINT STRING (19,32) ¿RETURN 

9400 DATA 150,154,154,156,151,154,154,157,151,154,154,157,147,154,154,153 

9700 DATA 1,2,3,4,%,6,7,8,9,10,11,12,13,16,17,20,21,24 

9710 DATA 17,13,1,2,3,4,3,+6,16,20 

9720 DATA 13,1,2,3,16 

9730 DATA 21,10,12,2 

10000 MODE 1:FEN 1:CLS:SYMEOL AFTER 31:FRINT"FREFARACDO PARA EL SIGUIENTE FROGRAM 
a" ¿EUN" "”" 
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4 INE 0,1: INE 1,24: INE 2,6: INE 3,26: INK 6,18,6:FEN 1:FAFER O:BORDER 1:CL5 

A ENV 1,10,4,3,8,74,3,3,71,10,6,5,2,43"11,3 

10 MODE 1:RESTORE 10100:FOR I=1 TO 17:READ XR*:LOCATE 1,I:FRINT X:NEXT 1 

12 XESINKEEYE CIF Xé="" THEN 12 

20 MODE O:SYMBOL 250,255,255,240,248,220,206,199,1953:SYMEOL 251,255,2330,15,31,739 
y411%,227,195:5SYMBOL 2%2,195,199,206,220,248,240,23, 

255 ¿SYMBOL 253,195,227, 113,59,31 NR rA eN 

2 WINDOW $1,1,10,2,18: WINDOW $2,1,20,20,/24:FAFER +1 ,0:WINDOW +3,13,20,14,179:FEN 
$141] ¿¡FAFER $2,3:FEN 4$2,2:CL59H1: PAPER fa "o 

100 CLSi:iINFUT "Cual es tu nombre "g¿n+ 

102 IF LEN(n*):9 THEN 100 ELSE CLS 

103 FEN 2:LOCATE 12,4:FRINT Né:LOCATE 12,6:¿FRINT O:LOCATE 12,8:FRINT"AMSTRAD" :LO 

CATE ie dl PRINT-0 

104. sus=O ix =RNOG IF 20.5 THEN. am=*0:G0OTO. 3000 

106 am=uls GOTO 2000 

200 SOUNO 1,956,30,7,,+,1:SO0UNO 1,38,40,6:31F cs=1 THEN RESTORE 8000 

202 1F cs=2 THEN RESTORE 8002 

204 IF cs= 3 THEN RESTORE 8004 

206 IF cs:4 THEN RESTORE 8006 

208 1F cs=%5 THEN RESTORE 8008 

210 1F. cs=:w6 THEN RESTORE 8010 

211 FOR i=0 TO Si¿READ x*sd*(1)=x*:NEXT 1 

212 LOCATE +$1,2,2:PRINT $1,"SUMA:"¿susLOCATE +$1,2,4:FRINT +1 ,CHRE(230) ¿:FOR i=1 
TO 7T:FRINT +$1,CHRE (208) ¿NEXT i¡:FRINT +$1,CHR* (231) 


214 LOCATE $1,2,5:FRINT +1,CHRE (211) ¡CHRE(203) 3". "gdR(O)¿". "¿CHRF(204) ¡CHAS (20 
9) 
216 LOCATE-4$1,2,61FRINT-41,CHRF(211)" " CHRE(C205) 3" "GCHRE (204) 3" 4CHRE(209) 
218 LOCATE +$1,2,7:PRINT +1 ,CHR$(211)7" "¿CHRE (135) ¿CHRF (131) 5 ¿CHRE (139) 3". "3GCHR 
+ (209) 


220 LOCATE $1,2,8:PRINT +1,CHR* (211) 5d+(1);" "¿CHR$(133) 5d+ (2) ¿CHR$(138)3" "sd*+( 
3) ¡¿CHRE (209) 
: dal LOCATE $1,2,9:FRINT +1 li "9 CHRE (141) 3CHRE (140) 3CHR$ (142) q" 0" CHR 


209) 
ala LOCATE. +$1,2,10:PRINT +$i ¿CHR$ (211) 3" "GCHRE (204) 3" "5CHR+$ (205) 3" "¿CHAR (209 
) | : 
226 LOCATE +$1,2,11:FRINT 41, ,CHR+(211) ¿CHR$ (204) 7" — "pd+(4)5"  "¿CHR$(205) ¿CHAS (2 
09) 


228 LOCATE $1,2,12:FPRINT $1, CHRE (252) ¡FOR i=1 TO 7:3PRINT +$1,CHR$(210) ¿:NEXT i:F 
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RINT 
230 
232 
234 
236 
300 
400 
410 
42O 
S00 
10 
O 
550 
TO 1 
500 5 
560 
N" 
Dó6Z 
570 
72 
600 
3 
602 
610 
¡E 


$1,CHR+ (253) 
LOCATE: +1,5,15:PRINT 41,CHR$ (150) ¿CHRE (154) ¿CHRE (156) 
LOCATE +$1,5,16:PRINT +1 ,¿CHR$ (149) ¿d$ (5) ¿CHR$ (149) 
LOCATE +$1,5,17:PRINT +1 ¿CHR* (147) ¿CHRS (154) ¿CHR$ (153) 
RETURN 
CLSR2:GLOCATE $2,4,3:PRINT+2,"COJO LA CARA:"¿CE:FOR lI=1 TO 3000:NEXT I:RETURN 
IF sux21 THEN GOTO 3000 
IF su=21 THEN ga=ga+1:LOCATE 12,10:FRINT ga:zx*="PERDISTE":GOTO 550 
IF SU>21 THEN gu=gu+1:¿LOCATE 12,6:FPRINT guix*$="GANASTE":GOTO 550 
IF suzx21 THEN GOTO 2000 
IF su+21 THEN ga=ga+1:LOCATE 12,10:¿FRINT ga:rx*="FERDISTE":G0TO 550 
IF SU=21 THEN gu=gu+1:LOCATE 12,6:PRINT guix*="GANASTE":GOTO 550 
FEN $3,6:FOR I=1 TO 6:LOCATE +$3,1,1:PRINT*3,X3:NEXT I:RESTORE 10000:FOR I=1 
SREAD J:¿SOUND 1,3,23,7,1,,1: NEXT I:FOR I=1 TO 1 
NEXT 
FEN $3,3:CLS *3:LOCATE +$3,1,2:FPRINT +43,"1:0TRA":LOCATE $3,1,5:FRINT $3,"2:F1 


DF=INEEYE:IF Dx="1" THEN 3570 ELSE IF D*+="2" THEN 5000 ELSE 562 

CLS *31SU=O:IF AM=1 THEN AM=0:GOTO 2999 

IF AM=0 THEN AM=1:GOTO 2000 

CLS *2:I1F CS=1 OR CS=6 THEN X*="2 3 4 5" ELSE 1F CS=2 OR CS=3 THEN X+="1 
4. 6 ELSE XF="1 2. $16" 

LOCATER2,4,23PRINTR2, "QUE CARA COJES" :LOCATER2,6,4:PRINTHZ,X+ 

Oé=INEEY*:1F Dé="" THEN 610 ELSE 1F D*<MID*(X+,1,1) AND D$<eMIOF(X+,4,1) AN 
¿MIDE (X%,7,1) AND D*<+MIOS(X+,10,1) THEN 610 


612 ce=VAL (d+) ¿RETURN 


1000 
1004 
1010 
1014 
1020 
1024 
1030 
1034 
1040 
1044 
1050 
1034 
10600 
1064 
1070 
1074 
1080 
1084 
1090 
1094 
1100 
1104 
1110 
1114 
1120 
1124 
1130 
1134 
1140 
1144 
11:30 
1134 
1160 
11054 
1170 
1174 
1180 
1190 
2000 
2010 
ZOZO 


2100 


IF cs=1 OR cs=ó6 THEN ce=2 ELSE ce=1 
RETURN 

IF cs=2 OR cs=35 THEN cel ELSE cexs2 
RETURN 

IF cs=3 OR cs=4 THEN ce=1 ELSE ce=3 
RETURN 

TF cs=3 OR cs=4 THEN ce=2 ELSE ce=4 
RETURN 

IF cs=2 OR cs=3 THEN ce=2 ELSE ce=sS 
RETURN 

IF cs=1 OR cs=ó THEN ce=3 ELSE ce=ó6 
RETURN 

IF cs=2 OR cs=:3 THEN ce=3 ELSE ce=2 
RETURN 

IF cs:=3 OR cs=4 THEN ce=1 ELSE cez=4 
RETURN 

IF. cs=1. OR cs=ó6 THEN ce=z2 ELSE ce-=1l 
RETURN 

IF cs=2 OR cs=3 THEN ce=1 ELSE ce=5 
RETURN 

IF cs=2 OR cs=3 THEN ce=3 ELSE ce=z 
RETURN 

IF cs=3. 0R cs=4 THEN ce=1 ELSE ce=3 
RETURN 

IF cs=3 OR cs=4 THEN ce=1 ELSE ce=4 
RETURN 

IF cs=2 OR cs=5 THEN ce=1 ELSE ce=5 
RETURN 

IF cs=1 OR cs=:ó THEN ce=3 ELSE ce 
RETURN 

IF cs=2 OR cs=% THEN ce=3 ELSE ce=2 
RETURN 

IF cs=1 OR cs=2 THEN ce=4 ELSE ce=1 
RETURN 

IF cs=1 THEN ce=24 ELSE ce=1 

RETURN 

ce=1 ¿RETURN 

ce=2 ¿RETURN 

CLS +1:1F suzsz0o THEN 2106 

x=RNO:1F 20.5 THEN ce=32 ELSE ce=4 
GOTO 2110 j Si j T 
ON SU GOSUB 1190,1180,1170,1160,1150,1140,1130,1120,1110,1100,1090,1080,107 
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0,1060,1050,1040,1030,1020,1010,1000 

2110 cs=ce :su=su+cs :GOSUB 200:G0SUB 300:GOTO 400 

2999 CLS +1 

3000 IF suz>O0 THEN 3100 1 

3010 CLS $2:LOCATE $2,4,2:PRINTH2,"QUE CARA COJES"“LOCATE +2,3,4:FRINT $2,"1-2 
3.1445 6" 

3012 x$=INKEYS$:1F x3<"1" OR x32>"6" THEN 3012 ELSE ce=VAL (x3%) ¿GOTO 3110 

3100 GOSUB 600:CLS $1 :CLS +*2 

3110 cs=ce:su=su+cs ¿GOSUB 200:FOR I=1 TO 2000:¿NEXT 1:GOTO 500 

5000 MODE 1:RUN" 


8000 DATA son 5 30 e73900 5 .u + $5“ , 1 Enpta 5 "4 £“ , "6 '“ 
8002 DATA que s "8" sy CUR LL » " 1 " y ug" ñ A 
8004 DATA de TAPA a A LC El LO 1 E 
8006 DATA Pi Parra na" 
8008 DATA 1g" $ ngr 4 057" 5 " 1 ” ó q 4 430 


8010 DATA e a lA Li LU pe LE E 
10000 DATA 338 ,319,284,284,284,253,284, 358 ,426,426,379,358,338,379,426,379 


10100 DATA " DATO 21",," El bbjetibo dile presente juego es sumar" 


¿"21 puntos con el dado que aparece en la","pantalla 
y por turno se ha de ir voltean-","do el dado sobre una de las cuatro caras" 


10101 DATA"laterales sumandose la nueva cara supe-","rior.",," El que logre suma 


r 21 gana, el que se","pase de 21 pierde.+.",,+,," 
FULSA TECLA FARA COMENZAR" 


TENIS 


1 INK ¿INE 1,24:FEN AP a) ER 

2 RESTORE * 10000 FOR I= A O LE TREAD RESLOCÁ, 2% heerinT XEG NEXT I 

4 X=INKEYE2:1F Xé="" THEN 4 ELSE CLS 

10 CLSiINFUT "Nombre del jugador 1 (max. 10 letras) "an: IF. LEN (m3) 210 THEN.10 
12 CLS:INFUT "Nombre del jugador 2 (max. 10 letras) "eo: 1F LEN(mé) 210 THEN 12 


14 CLS:LOCATE 9,10:FRINT"NIVEL DE JUEGO (1 o 2)" 
16 xF=INKEYS$:1IF x$="1" THEN nj=1 ELSE 1F x+$="2" THEN nj=2 ELSE 16 
20 CLS:pn=0:pm=0:PX=10:PY=10:X1=6:Y1=11:X2=35:Y2=10:G0SUB 2000:GO0TO 900 


100 IF yíiyl-2 OR y*yl+2 THEN RETURN ELSE 1F (y=y1-2 AND ig=1) OR (y=y1+2 AND iy= 


-1) THEN SOUND 1,100,5,7:2ix=-ix 2iy=-iy:RETURN 
102 SOUND 1,100,5,7:ix=-ix ¿RETURN 


110 IF yiy2-2 OR y>y2+2 THEN RETURN ELSE 1F (y=y2-2 AND iy=1) OR (y=y2+2 AND iy= 


-1) THEN SOUND 1,100,5,7:2ix=-ix 2iy=-iy :RETURN 
112 SOUND 1,100,5,7:1x=-ix ¿RETURN 


120 1F yiyl-1 OR ysyl+1 THEN RETURN ELSE 1F (y=y1-1 AND iy=1) OR (y=y1+1 ANDO iy= 


26 - AMIGOS DEL AMSTRAD - 1986 


nr nr rt rra n$ a a Va n$ a fa fa Y) YM € a Ya fa fa la 3 $. 


a 


1) THEN! SOUND 1,100,5,72ix=-"ixcig=-iygix=px 1y=pyiRET 

URN 

122 SOUND 1,100,%,71ix="ix1x=px 1y=py ¡RETURN | ] 

1390 TE yigó-1 OR yo:y2+1 THEN RETURN ELSE 1F (y=y2-1 AND iy=1) OR (y=y2+1 AND iy= 
-1) THEN. SOUND 1,100,39,7211x=-dx1ig=-iyix=px 2y=pyiRET 


132 SOUND-1,100,%, 71 ix="ix1x=px 1y=py RETURN 
140. FOR sli TO. 1ALOCATE x1,ylt+iFRINTO "¿NEXT da¿FOR- i=-1. TO 1:LOCATE xx.)yytiiFR 
INT CHRE (138) ¿NEXT dixl=xxiyl=yy ¡RETURN / 
130 FOR I=-1 TO 1:LOCATE x2,y2+1aFRINT" "¿NEXT i:FOR i=-1 TO 1:LOCATE xx yyti¿FR 
INT CHRE (133) ¿NEXT dix 2=xx1y2=yy ¡RETURN 
900 LOCATE FX,FYGFRINT" "3 FOR i=6 TO 35:X*=INEEY*:LOCATE 1,1:FRINT CHR* (143) ¿LOC 
ATE- 1,20: FRINT CHR+(143) ¿NEXT ino=6:yy=11:G60SUB 140 
noa=331yy=10:G0SUB 130 
910 px=211ipy=10:1Y=1:Z= do 1F.ZR0.50 THEN iX=1 ELSE ix=-1 
1000 An AEE (px<35 AND px: 
1010 x=px+ixiy=pytigilF Aa OR y=19 THEN iy=-iy: SOUND 1,150,5%,7 
1020 TF (ex did ANO ix=-1) THEN GOSUB 100 ELSE IF (x=x1 AND ix=-1) THEN GOSUE 12 
O 
1030 IF. (x=x2-1 AND ix=1) THEN GOSUE 110 ELSE 1F (x=x2 AND dix=1) THEN GOSUB 130 
1040 LOCATE px,py:FRINT" "GLOCATE x,yiFRINT CHRE (144) :px=x2py=y 
1060 x+F=INEEYE: IF. (x="q" OR x*="0") AND yl123 THEN xx=x1:0yy=y1-1 :GOSUE 140 
1063 IF x*="[" AND y2:3 THEN xax=x2:2yy=y2-1:G05UE 150 
1070 1F (x*="a" OR x*="A4") AND y1<18 THEN xx=x1:2yy=y1+1 :GOSUB 140 
1073 1F x*="]" AND y2218 THEN xx=x21yy=y2+1:G0S5UE 150 
1077 1F nj=1 THEN GOTO 1200 
1080 IF -x*="N" AND 2234 THEN xx=x2+11yy=y21G0SUB 150 
1083 1. Gé="x" OR x*="X") AND x1%<18 THEN xx=x1+1:yy=y1 :GOSUE 140 
1: 


1090 1F x%="/%" AND x2:22 THEN xx=x2-11yy=y2 :GOSUBE 150 

1093 IF (x*="Z" OR x%="2") AND x1:7 THEN xx=x1-1:yy=y1 :GOSUB 140 

1200 XF=INEEYS ¿WENO 

1300 TF FX>*34 THEN PN=FN+1 ELSE FM=FM+1 

1302 GOSUBR 2000:G0TO 900 

2000 LOCATE 6,2 2FRINT np" "gpmiLOCATE 6,24:FRINT mej": "5pmiLOCATE 9,1:3FRINT"1:; 
FARTIDA 2 :ABANIDIONAR" 

2002 X*=INEEYR21F X3="1" THEN RETURN ELSE 1F X*="2" THEN 4000 ELSE 2002 

4000 CLS:RUN" 

10000 DATA " TENIS",," Juego de tenis para dos jugadores, con","do 
s niveles de juego, en el nivel 1, la","ragueta se m 

ueve solo en sentido verti-","cal en el nivel 2, én sentido vertical y".,"horizon 
tal." 

10002 DATA" El jugador 1 esta a la izquierda y mue-","ve con 0,A (arriba y abajo. 
y 2,X (izq.","der.), y el jugador 2 esta a la derec 

ha","y mueve con [,J] (arriba y abajo), /,1","(izq. der..." ,,," FULSA TECLA 
FARA CONTINUAR" 
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CHR-EDITOR 


10 £. FROGRAMA. 2% CHR-EDITOR::; 
EDITOR DE CARACTERES 


ZO —* COPYRIGHT M.J.C. % F.A.F. 1985, 

23 SYMBOL AFTER 31:NC=1:DIM A(100,8) 

30 MODE O:BORDER 1: INK- 0,1: INE 1,26: 1Nk 2,243 INE 3,8:FAFER O:FEN 1:CLS 

40 LOCATE 5,3 3FPRINT"CHR-EDITOR":“PEN 3:LOCATE 7412:PRINT"EDITOR":LOCATE 9,14:FRIM 
T'DE":¿LOCATE 5,16:FRINT"CARACTERES" 

350 FOR T=1 TO 2000 STEF 5:SO0UND 1,7,1:SOUND 2,T+10,1:NEXT 

60 MOLE 1:INE 3,6:FEN 1:¿RESTORE 9000:FOR Z=1 TO 22:READ EF¿LOCATE 1,Z:FRINT Ex:S 
DUNE 1,200,2:NEXT:GOSUB 9200:GOSUB 8000 

80 CLSiLOCATE 2,2:PRINT"DEFINICION DE LAS TECLAS DE MOVIMIENTO" ¿LOCATE 3 10:FRIN 
T"FARÁA SUBIR EL CURSOR?" 

90 SESINKEYE: IF Sé="" THEN 90 ELSE LOCATE 1,4:FRINT"SUBIR "¿9% 

100 LOCATE 5,101 FRINT STRING* (30,32) ¿LOCATE S,10:PRINT"FARA BAJAR EL CURSOR?" 
110 E+=INKEYF:1F Bé="" THEN 110 ELSE LOCATE 20, 4FRINT"BAJAR ";Bz 

120 LOCATE 5,10: FRINT STRING* (30,32) :LOCATE 1,10:¿PRINT"FARA LLEVAR A LA TIERECHA 
EL CURSOR?" 

130 DéESINKEYR:1F Dé="" THEN 130 ELSE LOCATE 1,6 :PRINT"DERECHA "Dé 

140 LOCATE 1,10:FRINT STRING+* (39,32) ¿LOCATE 1,10:FRINT"FARA LLEVAR A LA IZQUIERDO 
A EL CURSOR?" 

1350 I$=INKEYS:1F lé="" THEN 150 ELSE LOCATE 20,6 :FRINT"IZQUIEROA "ylé% 

134 LOCATE 1,10:FRINT STRING+* (39,32) ¿LOCATE 5,10:PRINT"FARA FIJAR EL CURSOR?" 
156 F+=INKEYS:1F Fé="" THEN 156 ELSE LOCATE 10,8:FRINT"FIJAR CURSOR "+Fg 

160 LOCATE 1,10:FRINT STRING+ (39,32) ¿FPRINT"ESTAS CONFORME CON ESTAS TECLAS (S/N) 


170 LésINKEYE: IF Lé="" THEN 170 ELSE L*=UFFERS(L4) :1F Lé="N" THEN 80 ELSE IF Léx 
“0S" THEN 170 . 

180 FEN 1:CLS:LOCATE 7,1 :FRINT"MENU DE OFCIONES:"¿RESTORE 9100:FOR Z=1 TO 9:READ 
EFI¿LOCATE 1,Z2x2+2:PRINT Zp".- "¡EF :¿NEXT:LOCATE 6,23 

¿FRINT"FULSA EL NUMERO DE LA OFCION" ¿SOUND 1,100,7 

190 Lé=SINKEYE:IF Lé="" THEN 190 ELSE L=VAL (L4):1F L<1 OR L>9 THEN 190 

200 CLS:ON L GOTO 300,300 ,300,300,300,3000,4000,5000,6000 

210 GOTO 180 

300 LN=1:AL=1:IF L=2 THEN LN=L ELSE IF L=3 THEN LN=L ELSE 1F L=4 THEN LN=1 :AL=2 
ELSE IF L=5 THEN LN=2:AL=LN A 
303 H(0,0)=1:ERASE H:DIM H(ALX8,LNX8) 

310 PEN 2:K=1:FOR Z=1 TO ALXB:LOCATE 1,Z+1 

320 PRINT MID (STRE(K),2,2) 1K=K+1:1F E=9 THEN E=1 

330 NEXT 

340 Ks1:FOR Z=1 TO LNXB:LOCATE 1+Z,1 

3530 PRINT MIDE(STRE(5),2,2) 2k=k+1:x1F K=9 THEN k=1 

360 NEXT. ' 

370 EF=STRINGS (LNxX8,144) ¿FOR Z=1 TO AUXB:LOCATE 2,Z2+1:FRINT ER:NEXT 

373 IF Sé=CHRE (240) AND B+=CHR£(241) AND DF=CHRE (243) AND I$+=CHR+(242) THEN 390 
380 LOCATE 33,3:FRINT S*:LOCATE 30,6:FRINT I*:LOCATE 36,6:FRINT DF¿LOCATE 33,9:F 

RINT Ex 

390 LOCATE 30,1:FRINT"TECLAS:"*LOCATE 33,4:PRINT CHR*(240) :¿LOCATE 31,6:FPRINT CHR 
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RARA AAA RAMOS 


F(242) q" "¿CHRE (243) ¿LOCATE 33,8:FRINT CHR+(241) 

400 LOCATE 31,10:PRINT"FIJAR:"21F F+=CHR+(32) THEN LOCATE 30,11:PRINT "<SFACE;" 
ELSE LOCATE 33,11:PRINT F3+ 

405 LOCATE 28,13:FRINT"<ENTER: FARA":LOCATE 30,14:FRINT"TERMINAR" 

410 INE 3,6,26:SPEED INK 3,3:H=1:V=1:FEN 3:LOCATE H+1,V+1:¿PRINT CHRé (143) 

420 LF=INKEYE:IF Lé=CHRE (13) THEN SOUND 1,100,5:GOTO 1500 

430 1F Li=S* AND V:1 THEN SOUNO 1,50,1:G0T0 1000 

440 IF Li=B* ANO VZ2ALX8 THEN SOUND 1,50,1:G0TO 1100 

450 1F Lé=D0% AND OH<3LNxX8 THEN SOUND 1,50,1:G0TO 1200 

460 IF Lé=l* AND H>1 THEN SOUND 1,50,1:G0TO 1300 

470 IF Lé=F* THEN SOUND 1,300,3:G0TO 1400 

480 GOTO 420 

1000 GOSUB 2000 :V=V-1:GOSUB 2100:GOTO 420 

1100 GOSUB 2000:V=V+1:G0SUB 2100:GOTO 420 

1200 GOSUB 2000:H=H+1:GOSUE 2100:G0TO 420 

1300 GOSUB 2000:H=H-1:GOSUB 2100:GOTO 420 

1400 1F H(V,H)=0 THEN H(V,H)=1 ELSE H(V,H)=0 

1410 GOTO 420 

1500 GOSUB 2000:XR=16:D0(1)=1:ERASE D:DIM (8) 

1505 IF AL=2 THEN XR=18 

1510 FOR Z=1 TO LN:FOR X=1 TO AL 

1520 CKE=3:1G0SUB 1800 

1330 FEN 2:LOCATE 1,24:FRINT STRING* (40,32) ¿LOCATE 3,24: INFUT"N. DEL CARACTER QU 
E TRANSFORMAMOS" +T 

1340 LOCATE 1,24:FRINT STRINGS* (40,32) 

1350 1F 1233 THEN LOCATE 1,24:PRINT"CARACTER PROHIBIDO, ESTA RESERVADO" :*GOTO 157 
O ELSE 1F T2:143 AND T2:144 THEN 1580 

153560 IF T=143 OR T=144 THEN LOCATE 1,24:PRINT"CARACTER FROHIBIDO, ES "¡¿CHRé(T) E 
LSE 1580 

13570 SOUND 1,1000,30:¿FOR T=1 TO 2000:¿NEXT:¿LOCATE 1,24:FRINT STRING+ (40,32) ¿GOTO 
1530 

1380 LOCATE 1,24:FRINT"ANTIGUO CARACTER: "¿CHR*(T)¿LOCATE 9,25:FRINT"LO TRANSFOR 
MAMOS (S/N) " 

1390 Lé=INEREYECIF Lé="" THEN 1590 ELSE L$=UPFERS (LE) :1F Lé="N" THEN LOCATE 1,24: 
PRINT- STRINGE (40,32) ¿LOCATE 1,25:PRINT STRING*(39,32 

):60T0 1530 ELSE 1F Lazx:"S" THEN 1590 

139% LOCATE 1,24:FRINT STRING* (40,32) ¿LOCATE 1,25:FRINT STRING+ (39,32) 

1600 CC=0¿FOR Y=Xx8-7 TO X*x8:SOUNO 1,200,5:6%=""300=00+1:FOR I=2x8-7 TO Zx8:S0UN 
D01,100,2:6%=G++RIGHTE(STRE(H(Y,1)),1) ¿NEXT:A(NC,CC) 

=YAL ("RX eGE) 2 D0(C00)=A(NC,CO) ¿NEXT 

1610 A(NC,0)=T¿NC=NC+1 

1620 LOCATE 1,XR:FPRINT T¿":"¡:FOR I=2 TO 9:LOCATE 1%4,XR:FRINT USING"HHHH" A (NC=1 
1) ¿NEXT 

1623 CE=2:G0SUE 1800 

1630 SYMBOL T,0 (1) ,D0(2),00(3) ,00(4) ,00(5) ,0(6) ,0007) ,00(8) ¿XR=XR+2:NEXT 

1640 NEXT 


1630 GOSUB 8000:G0TO 180 


1800 PEN CkE:ik=1:FOR y=xx*x8-8 TO x*XB:LOCATE 1,y+1:PRINT MID (STRE(K),2,2) 1K=k+1:NE 
1810 K=1:FOR 1=2x8-8 TO ZXSB:LOCATE 1+1,1:PRINT MIDE(STRE(K),2,2) 2:K=k+1 ¿NEXT:RETU 


2000 LOCATE H+1,V+1:1F H(V,H)=0 THEN FEN 2:FRINT CHR+$(144) ELSE FEN 1:FRINT CHRE 
(143) 

2010 RETURN 

2100 PEN 3:¿LOCATE H+1,V+1:FPRINT CHR* (143) ¿FEN 2:RETURN 
3000 FEN 1¿LOCATE 3,1 :FRINT"VER LOS CARACTERES" :1CC=24:CF=1 

3010 LOCATE 1,22:PRINT"FARA VOLVER AL MENU PULSA M":LOCATE 1,23:PRINT"FARA VER O 
TRO CARACTER FULSA O"“*LOCATE 1,24:FRINT"FARA CAMEIAR 

COLOR DEL CARACTER FULSA C"¿LOCATE 1,25:PRINT"FPARA CAMBIAR COLOR DEL FONCMO FULS 
A E" 

3020 LOCATE 3,20: INFUT"QUE CARACTER QUIERES VER"¿T 
3030 LOCATE 3,20:PRINT STRING*+(37,32):1F T<33 OR T>255 OR T<*INT(T) THEN 3020 
3040 FEN 2:LOCATE 20,12:FRINT CHE: (T) 
3050 LF=INKEYE:IF Lé="" THEN 3050 ELSE L$=UPPERE(L$):1F Lé="M" THEN GOSUB 3600:6 
OTO 180 ELSE IF L+="0" THEN GOSUB 3600:CLS:GOTO 3000 

“ELSE IF Lé="C" THEN 3300 ELSE IF Lé="F" THEN 3500 ELSE 3050 

3300 CC=CC+1:1F CC>26 THEN CC=0 ELSE IF CC=CF THEN CC=CC+1:1F CC+26 THEN CC=0 
3310 INE 2,CC:GOTO 3050 


1986 - AMIGOS DEL. AMSTRAD - 29 


3300 CF=CF+1:1F CF:26 THEN CF=0 ELSE 1F CC=CF THEN CF=CF+1:1F CF>26 THEN CF=0 
3310 INE 0,CF:GOTO 3050 

3600 INE 0,1:INHE 2,24 :RETURN 

4000 1F NCs0 THEN FRINT"FPREFPARA EL CASSETTE FARA ALMACENAR TODOSLOS CARACTERES Q 
UE HAS DEFINIDO" ELSE GOTO 180 

4010 PRINT:¡FRINT:SFEED WRITE 1:FRINT"NOMBRE DEL ARCHIVO" :FRINT" (maximo 10 caract 
eres)" ¿PRINT:PRINT:INFUT Né:IF LEN(NS) 10 THEN CLS:G 

OTO 4010 

4013 CLS:LOCATE 2,12:PRINT"ALMACENANIIO" ¿NC-1 "CARACTERES DEFINICOS" 

4020 OFENOUT N+ 

4030 FPRINTH9,NC 

4040 FOR Z=1 TO NC-1:FOR X=0 TO 8 

4030 FRINTHO,A(Z,X) 

4060 NEXT¿NEXT 

4070 CLOSEOUT 

4080 CLS:LOCATE 9,12:FRINT"CARACTERES ALMACENADOS" :GOSUE 8000:GOTO 180 

5000 FRINT"CARGA DESDE EL CASSETTE DE CARACTERES DEFINIDOS" :PRINT:PRINT 

5010 OFENIN "" 

SÓOZ2O INPUTHO ¿NC 

5030 A(1,1)=1:00(1)=1:ERASE A,D:DIM A(100,8),0(8) 

535040 FOR Z=1 TO NC-1:FOR X=0 TO 8 

50530 INFUTHO,A(Z,X) :00(X)=A(Z,X) 

3060 NEXT ¿SYMBOL 10) ,00C1) 0002) ,00(3) ,00(4) ,0(5) ,00(6) ,0107) ,0(8) ¿NEXT 

5070 CLOSEIN 

5080 CLS:iLOCATE 1,12:FRINT NC-1"CARACTERES CARGADOS DESOE CASSETTE" :GOSUB 8000: 
GOTO 180 

6000 SYMBOL AFTER 31:MODE 1:INE 0,1: INHK 1,24:FAFER O:FEN 1:CLS:PRINT"FREPARADO F 
ARA EL SIGUIENTE PROGRAMA" ¿RUN"" 

8000 LOCATE 2,23:FRINT"FULSA CUALQUIER TECLA FARA CONTINUAR" 

38010 IF INKEY+="" THEN 8010 

8020 RETURN 

9000 DATA 


"EDITOR o E CARACTERE SS!" "=== ====== 
============",," Este programa permite la definicio 
n de",nuevos caracteres no existentes en la,serie de caracteres graficos que inc 
or-,pora el AMSTRAD. , B ' 
9010 DATA " Fodras, de esta forma, definir figuras","ineditas para tus dibujos, 
graficas y",juegos.,," El caracter recien definido 
podras", asignarlo a cualquiera de los existentes," (desde el 33 al 255), de form 
a que" 3 
9020 DATA debes tener cuidado con ciertos numeros,(ver manual AMSTRAD Apendice 1 
Il p 2-13),," Los caracteres que puedes crear seran 
*,todos de 8 x 8 puntos pero con el pro-,grama puedes definir figuras formadas»,p 
or mas de un caracter. ¡ 
9100 DATA DEFINIR CARACTER 1 x 1,DEFINIR CARACTERES 2 x 1,DEFINIR CARACTERES 3 x 
1,DEFINIR CARACTERES 1 x 2,DEFINIR CARACTERES 2 x 2 
»VER CARACTERES ,ALMACENAR CARACTERES EN CASSETTE,CARGAR CARACTERES DESDE CASSETT 
E,FIN DEL PROGRAMA 
9200: SYMBOL 144,235,129,129,129,129,129,129,255 RETURN 
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SUBMARINO 


L9 "CORRES UTBEMA RN 00 

30 SYMBOL AFTER O:MODE 1:BOROUER 11: INE 0,11: INE 1,24: INE 2,6: INE 3,1:FAFER O:FEN 
1:CLS:RESTORE 9000: FOR Z=1 TO 25:READ EF¿LOCATE 1,2 

¿PRINT EX ¿SOUND 1,100,3:NEXT :GOSUE 95300 

40 1F INKEYE="" THEN 40 

530 MODE 1:BORDER 1:WINDOW +$0,1,40,12,25:FAFER $+0,3:FEN *0,1:WINDOW +1,1,40,2,11: 

FAFER-41L,yOS5FEN +41,2:3WINDOW +2,1,40,1,1:FAFER $2,3:FE 

N +2,2:0LS RO:CLS $1:CLS $2 

60 NS=3:NT=10:TT=0 ¿NB=TT :¿TB=TT :GOSUB 8000 :GOSUE 8010:G0OSUE 8020 :YE=10 

7O xX=20+Y=11 :G0SUB 5010: XMN=2 2 YMIN=XMN ¿DIXMN=1 ¿D0YMN=0XMN :GOSUE 5020 

80 LE=INKEYE:IF Ls" THEN Lé=UFFERE (LE) 

90 1F Lé="F" THEN 10000 

100 IF Lé="Q" AND X>1 THEN GOSUB 5000 :X=X-1 

110 1F Lé="4" AND X<40 THEN GOSUE 30001 X=X+1 

113 GOSUR 010:GOSUE 3200 

120 1F Lé=CHR*$(32) AND TF=0 THEN TF=1:XTF=X:2YTF=Y-1 ¿NT=NT-1:GOSUB 8010: TT=TT+1 
125 IF TF=0 AND ONT=0 THEN 7100 

130 GOSUE SO20:1F XMN=X AND (YMN=Y OR YMN=Y+1) THEN 6000 

140 1F TF=1 THEN GOSUR 3100 

200 GOTO 80 

999 GOTO 999 

5000 LOCATERO,X,Y¿FRINT ER ¿LOCATERO,X,Y+1:PRINT E* “¿RETURN 

5010 LOCATERO,X,Y:FRINT SE1F:LOCATERO,X,Y+1:FRINT SE2 RETURN 

5020 PENRFO,2:LOCATE R+0,XMN,YMN:¿FRINT E*:1F XMN>1 AND XMN<40 THEN XMN=XMN+D0XMNM El 
SE TIXMN=-DIXMIN : XMN=X MIN + D1X MIN 

5030 IF YMN+*1 AND YMN<13 THEN YMN=YMN+OYMN ELSE IYMN=-D0YMN : YMN=YMN+DY MN 

5040 LOCATERO , XMN y YMN:¿FPRINTHO MN FENFO, 1 :3RETURN | 

3050 LOCATE+*+1,XB,YB:FRINT B+(EE) ¿RETURN 

3100 LOCATERO,XTP,YTFEGFPRINTRHO,EF:¿SOUNO 1,10,2:1F YTF>1 THEN YTF=YTF-1:LOCATERO, Xx 
TR,YTFR:¿PRINTHO , TF :RETURN 

5110 TF=0:1F XTF>=XB AND XTF<¿XB+LE THEN 5120 ELSE RETURN 

5120 VOL=15:FOR Z=2000 TO 1950 STEF -1:LOCATER1,XTF,YB:FRINTH1,EX1+:LOCATER1,XTF 
¿YBGFRINTH1)EX2%:SOUND 1,2,3,VOL ¿SOUND 2,Z2+1000,3,V0 

L :VOL=VOL-0.13:NEXT :NB=NE+1 :GOSUB 8020 ¿NT=NT+4-LB:GOSUE 8010 

3130 LOCATER+1,XB,YB:FRINTH+1 ¿STRING (3,32) ¿XB=0 2: RETURN 

5200 1F XBx2-THEN.LOCATER+1,1,YE:FRINTH1i,STRINGE (3,32) ¿BB=INT (RNDxXó6+1) :¿:LE=LEN(RZ ( 
EE) )-1:XB=40-LBE:TB=TE+1 

210 XB=XB-1:LOCATER1,XE,YE:FRINTH+1,B+(BB) ¿RETURN 

6000 FENFO,2:VOL=15:FOR Z=3000 TO 2950 STEF -1:LOCATERO,XMN,YMN:FRINTHO ,EX1:LOC 
ATERO,XMNYMN:FRINTRO,EX2% :SOUND 1,Z,3,VOL:SOUNO 2,Z 

+1000,3,VOL :VOL=VOL-0.13:NEXT:¿FENHFO,1:NS=NS-1 :GOSUE 8000: 1F NS=0 THEN 7000 ELSE 
10) ¡ 

7000 LOCATERO,1 y 1:FRINTRHO,"TU FLOTA DE SUBMARINOS HA SINO DESTRUIDA" :GOTO 7300 

7100 LOCATERO,1,1:FRINTHO,"TE QUEDASTE SIN TORFEDOS, HAS FERDIDO!!!"¿GOTO 7300 

7300 FOR T=1 TO 3000:+NEXT:MODE 1:CLS:LOCATE 3,6:FRINT"FUNTUACION:":LOCATE 2,8:FR 

INT"N. TOTAL DE TORPEDOS DISFPARADIOS:"¿TT:LOCATE 2,10 

¿FRINT"N. TOTAL DE BARCOS ENEMIGOS: "¿TR:LOCATE 2,12:PRINT"N. BARCOS ENEMIGOS HUN 

DITDIOS:" ¿NB coo é 

7310 LOCATE 1,14:PRINT"HAS HUNDICO EL"; INT(NBxX100/TB);"% DE LA FLOTA ENEMIGA" :LO 
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CATE 7,22 :PRINT"PARA OTRA PARTIDA PULSA P":LOCATE 7, 

24: PRINT"PARA OTRO PROGRAMA PULSA O" 

7520 Lé=INKEYE:1F Lé="" THEN 7520 ELSE L£=UPPER$ (Lg) 

17530 1F Lé="P" THEN RUN ELSE IF Lé="0" THEN 10000 ELSE 7520 

8000 LOCATE 42,2,1:PRINTHZ,"N. "¿NS$p":":LOCATE $2,8,1:PRINTH42,USING"+44" ¿NS:RETU 
RN : , 
8010 LOCATE $2,13,1:PRINTR2,"N. "¿TPS¿":":LOCATE $2,18,1:PRINTH2,USING"444"¿NT:R 
ETURN 

8020 LOCATE 4+2,25,1:PRINTH2,B3 (4) ¡"HUNDIDOS:":LOCATE 4$2,36,1:PRINTH2,USING"H4H4"; 
NE RETURN 


9000 HATA " Ci SUBMARINO 235",," Eres el Capitan de un submarino 
en","guerra, y por lo tanto tu mision es" ,hundir el 

maximo numero posible de,barcos enemigos.,," Te bastara un solo toroedo para h 
undin" > 

9010 DATA a cualquiera de tus enemigos y por cadas,uno que hundas recibiras mas t 
orpedos.,," El enemigo estara defendido por medio", 

de una terrible mina submarina.,," El movimiento del submarino se realiza" 
9020 DATA con las teclas O (a la izquierda) yy"W a la derecha), el torpedo se di 
spara",pulsando la barra espaciadora.,," El juego t 


ermina al ser hundido cinco","veces, al acabarse los torpedos o al",pulsar la te 
cla F. 

9030 DATA ,," FULSA UNA TECLA FARA COMENZAR EL JUEGO" 

9300 SYMBOL 170,16,56,124,124,254,254,238,198:5YMBOL 171,198,198,238,254,124,124 
136 ,40:5YMBOL 172,0,0,2,78,83,255,127,62:SYMBOL 173, 

0,0,0,0,8,28,234,127:5SYMBOL 174,0,7,116,55,255,127,63,31: SYMBOL 175,64,192,39,24 


6,2355 055 al 
y a y yt 


9310 SYMBOL 176,0,0,73,73,255,127,63,31:SYMBOL 177,32,60,34,62,255 
YMBOL 178,0,0,238,102,255,127,63,31:SYMBOL 179,0,127 
1170,213,255,255,255,255:SYMBOL 180,48,248,172,84,255,255,254,252 
79520 SYMBOL 181,4,60,20,255,63,31,15,7:SYMBOL 182,16,241,83,255,255,255,255,255; 
SYMBOL 183,240,168,84,2355,252,252,248,240 - 

9330 SYMBOL 186,16,56,56,56,56,16,56,40:SYMBOL 187,36,60,235,86,106,215,60,36:18Y 
- MBOL_188,133,80,132,41,134,53,74,149:SYMBOL 189,34,2 
0,165,66,165,153,74,36:E+=CHR+* (32) :SB14=CHR+ (170) ¿SB2%=CHR$ (171) ¿TPE=CHRE (186) ¿M 
Né=CHRE (187) 

9340 EX1+=CHRE (188) ¡EX2$=CHR$ (189) :E$ (1) =CHRE (172) +E4 :B4 (2) =CHR$ (173) +E% :B4 (3)=C 
HRE (174) +CHR$ (175) +E4 :E3 (4) =CHRE (176) +CHRE(177)+E4 :5 

YMBOL 190,1,0,3,63,127,255,127,63:SYMBOL. 191,192,192,224,248,253,254,254,25 

9350 BH (5) =CHRE (178) +CHRE (179) +CHRE (180) +E+:B4 (6) =CHRE (181) +CHRE (182) +CHRE (183)+ 
Es ¿NS$=CHRE (190) +CHRE (191) ¿RETURN 

10000 MODE 1:CLS:FRINT"FREFARADO PARA EL SIGUIENTE PROGRAMA :" ¿RUN"" 


EE me mea 
2 A iS 
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NOVEDADES 


IAN KEY-COVER 


1AM 


ASTRAL LEIA DOMMALDA AEREIAC A 


000000005053 
| UD ae 


¡AN KEY-COVER, ES EL PROTECTOR IDEAL PARA EL TECLADO DE SU AMSTRAD 6128 ESPECIALMENTE DISEÑADO 

PARA REUNIR TODAS LAS CARACTERISTICAS ADECUADAS PARA ELLO: 

— PROTECCION FIRME DEL TECLADO DEL CPC 6128 (REALIZADO CON RESISTENTE METACRILATO DE UNA SOLA 
PIEZA CON NERVIOS LATERALES PARA FIJACION EN EL REBORDE DEL CONJUNTO DE SU ORDENADOR). 

— AJUSTE PERFECTO EN SU ORDENADOR CON SUAVE PRECISION Y COBERTURA TOTAL. 

— TRANSPARENTE (CONFIRIENDOLE LA PROPIEDAD DE VISUALIZAR EN TODO MOMENTO SU TECLADO). 

— PROTECCION CONTINUA CONTRA ELEMENTOS EXTERNOS (COMO: DERRAMES DE LIQUIDOS, GOLPES, ETC.) 
ADEMAS DE GOZAR DE LA SEGURIDAD DEL BUEN FUNCIONAMIENTO DE SU ORDENADOR AL REANUDAR SU 
DIARIO QUEHACER. UN POCO DE CAFE DERRAMADO SOBRE SU TECLADO ELEVARA ENORMEMENTE EL 
PRESUPUESTO ANUAL DE SU ORDENADOR. EVITE EL RIESGO, PROTEJASE. 

— RESGUARDO PERMANENTE CONTRA EL POLVO Y LA POLUCION (EL 50 % DE LAS AVERIAS DE SU TECLADO SON 
MOTIVADOS POR EL CONTACTO CONSTANTE DE ESTE CON EL POLVO Y LAS PARTICULAS ATMOSFERICAS, EL 
EXCESO DE HUMEDAD, ETC.). ELIMINE UN RIESGO CONTINUO, DOSIFIQUELO. 

— MANTENGALO LIMPIO SU AMSTRAD 6128, CUBRIENDOLO CON IAN KEY-COVER. 

— DELE AL TECLADO DE SU AMSTRAD 6128 ESA SENSACION DE PULCRITUD, SENTIDO DEL ORDEN Y APARIENCIA 
EXTERNA QUE SU AREA DE TRABAJO, ESTUDIO O ENSEÑANZA, REQUIERE. 
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CPC 6128-664-464 


<> ZA-MA 


EL DOMINIO DEL AMSTRAD 
PCW 8256/8512 


“El dominio del Amstrad PCW 8256/8512” 
le sitúa en la vía rápida hacia el éxito en los 
negocios. Lo mismo si está Vd. empezan- 
do autilizar uno de estos ordenadores, co- 
mo si está considerando comprárselo, es- 
te libro le mostrará rápidamente cómo ren- 
tabilizar al máximo su inversión. 


Una gran parte del libro trata del proceso 
de texto. 


Esta parte del libro es un medio didáctico 
excelente, que le conducirá desde los usos 
más sencillos del proceso de textos, a los 
más avanzados. Una sección aparte cubre 
el uso de NewWord, la potente alternativa 
de NewStarSoftware. 
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DOMINE EL CODIGO MAQUI- 
NA EN SU AMSTRAD 


Ahora tiene la oportunidad de aprender a pro- 
gramar en código máquina en su ordenador 
Amstrad. Clive y Scott —dos programadores 
muy competentes, con gran experiencia en li- 
bros y software a sus espaldas — son los guías 
ideales para ayudarle a comprender las inte- 
rioridades de la programación en código má- 
quina del Amstrad. 


Debe ir trabajando en código máquina del 
Amstrad. 


Debe ir trabajando a lo largo del libro, saltán- 
dose las secciones que le presentan una es- 
pecial dificultad la primera vez que las lea. 
Cuando haya terminado su primera lectura, 
tendrá los suficientes conocimientos como pa- 
ra poder comprender aquellas secciones que 
dejó sin completar la primera vez que pasó por 
ellas. 


AMIGOS DEL 


AMSTRAD 


EDITORIAL 


Tras un breve lapsus de tiempo, aquí estamos de 
nuevo con nuevos e interesantes programas para 
todos aquellos “AMIGOS DEL AMSTRAD”. 


Ante todo, comenzar agradeciendo el cariño con el 
que hemos sido recibidos por todos vosotros, y 
aunque se haya dicho muchas veces esto nos 
obliga a superarnos en ofrecer lo mejor cada mes. 


En este ya nuestro número 2, os ofrecemos una 
serie de programas listados con mayor o menor 
dificultad, en los cuales podéis introducir una serie 
de cambios y mejoras, dejando de esta forma 
campo abierto a vuestra imaginación y vuestros 
conocimientos del ordenador. 


Esperamos que os sean de utilidad e interés y, con 
vuestra voluntad y nuestra pequeña contribución, 
seáis capaces de elaborar poco a poco, programas 
cada vez más complicados. 


Gracias y hasta el próximo mes. 


Edita: Editorial GTS. C/. Bailén, 20. 1. Izda. 28005 MA- 
DRID. Secretaria Redacción: Margarita Rancero. Colabo- 
radores: Eugenio Garrido, J. F. Martínez, J. Bernal, R. Ca- 
rralón, J. Ramos, Juan Jesús Ortega. Dirección Artística 
y Técnica: Carlos Gorrindo. Publicidad: Bailén, 20. 1?. 


28005 MADRID. Fotocomposición: Gráf. FUTURA, Sdad. 
Coop. Ltda. Imprime: Gráf. FUTURA, Sdad. Coop. Ltda. 
Distribuye: R.B.A. Promotora de Ediciones, S. A. Trav. de 
Gracia, 56. Atico 1.?. Teléfono: 200 82 56. Depósito Legal: 
M. 3988-1986. 
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MoARXXx PHONTOMFIRE Xx8xRx 
BER ANGEL + DELGADO kx 


ME deb 


REM 10d Ion 
REM po : j | 

ds MODE E O A O A Pe E A A bie 

INE O 05 1NK a els. INk k-2,7:1Nk 3,18. 

FAPER O: EORDER O 

ORIGIN EDER e. | 
FOR a= TO | 24PI STEP FI/70 

DRAW JOORCOS (a), TON ta 

10, ¿BOXSIN (a). 13 : 


Y CHR$ (22) +CHRS (1) 3 


> i 
T "PFHANTOMF IRE" 
"CHRS (22) +CHR3S (0) 
7,0: INE 3,0,18 ¿ | l 
ele +9—30D- ¿SOUND 1 18, 1, 15NEX XT a qe A  PE><EXEXX.HqAE-—mvmAAÁA AAA —Á 
12 3,7,18 | | 
a=300. To. STEP -2: SOUND: 1 ya, 1 1SOUND 2,axk2, pj a 
2,7: INK 3,18 | | | 
a=1 TO SOO1NEXT a DA | | | CO IS 
.. MODE E A | j 
50 GOTO 310. | 
O PRINT 


“PRINT PRINTIFOR| a=1 010.2 200: e a: RETURN 
REM X*Xk INICIO DEL PROGRAMA xxx E | 
A$="<< PHANTOMFIRE >>" :GOSUB 270... | / 
_PRINT:A$="DESTRUYE A LAS NAVES ENEMIGAS QUE ban" <GosuB 270. 

O A$="0SADO INT DUCIRSE EN TU ESPACIO AEREO."¿GOSUB 270 
do PRINT:A$="PON LA NAVE A TIRO (SUENA UN SONIDO) Y ":GOSUB 270 
360 A$="ENTONCES PULSA -SPACE- PARA id ds E 270 | 


MIGOS DEL AMSTRAD - 1986 | 


¿ 
É 


37 PRINT: :AS="PARA DESPLAZAR LA! halos EMPLEA LAS"3 com mm 


| -A$="TECLAS DEL CURSO 
390 PRINTS $="PULSA -S- PARA EMPEZAR" :GOSUB 270. 
-A00 IF INKEY(60)<>0 THEN 400 Bs 
410 v=1:GOSUB 940: INK 0,26:PAPER O:BORDER 26: INKk 1,18 
0: | 


INK S,6sINK 6,15,S:INk 7,11:MODE OsENT 1,10,-1,1 > 
420 ENV 1,30,=1,11ENT 2480,1,1 TT 
430 WINDOW $1,7,14,22,22:PÉN H1,5. | 

440 WINDOW 42,6,15,24,24: :PEN a216 | 
ADO vE= "REIR MN | 
460 y=200:FOR m=1 TOS A Ll 
470 PEN 1:FOR a=1 TO n£Ziy=y-2: ECO 0,4, 1 ¿DRAWR. 650,0 :1NEXT 
480 FOR a=1 TO n£3:y=y-2:PLOT 0,y,2:DRAWR 6S50,O:NEXT a 
490 FOR a=1 TO nX4:y=y-2:PLOT Pus quam [eo O:NEXT a 
500 NEXT n 


- 310. FOR-a=150 TO. 2501PLOT a, ¿0, ¿O :DRAWR ARA -50,0:NEXT a corno A A AA y EI 


520 FOR a=250 TO 370:PLOT 2Ay0:DRAWR 0,100:NEXT a 


530 FOR a=370 TO 470: FLOT a,0:DIRAWR OsABS (470-a) :DRAWR so, O: NEXT a 


cid LOCATE 8,20: PEN 7: PRINT"2 2828" | 

O p=0: GOSUÉ 880 :GOSUE 860 | | | 

560 y=300:x=150:PRINT Do AM Mar TTTT 
570 1F v=1 THEN INK 1,9: INK 2,18: INK 3,19. 

580 IF v= =2 THEN INK 1,19: INKkK 2,9: 1NK 3,18. 

590 1F v=3 THEN INK 1,18: INK 2,19: INK 3,9. 

600 SOUND 4,500,10,10,0,0,31 

6160 x=x+ INT (16XRND16ÉRNDO) :1F INKEY (0)=0 THEN x=x-8B 
620 IF INKEY(2)=0 THEN x=x+8. 

630 y=y+ INT (16XRND-16XRND) :1F INKEY(8)=0 THEN y=y+8 

640 IF INKEY(1)=0 THEN y=y-8 

650 IF x:<124 THEN x=124 

660 MOVE y,x,4:PRINT"[]";:1F RND>0.99 THEN GOSUB 890 
670 v=v+1:1F v>3 THEN v=1 


680 IF x<240 THEN IF x>210 THEN 1F | u<319 THEN 1F y>270 THEN SOUND UEES El 


690 IF INKEY(47)=0 THEN GOSUB 720 | 
700 MOVE y sx cPRINT"CIU 

710 GOTO 570 

720 MOVE 200,100:DRAW 316,220 :MOVE 422,100: DRAW 320,220 
730 SOUND 2,50,20,15,0,2 

740 IF x>240 THEN GOTO 810 

750 TF x<210 THEN GOTO 810 | 

760 1F y>310 THEN 810 | | 

770 1F y<270 THEN 810 | | 
780 SOUND 3,100,30,15,0,2,01:p=p+15:GOSUB 8so | 


800 GOTO 830 


GPRINT"CI"g 


790 MOVE y yx iPRÍNTULI "5 2x=200+INT (RNDA200) : y=INT(RNDKE00) + ¿MOVE Ya 


810 p=p-2:1F p<0 THEN p=0 
820 GOSUB 880 
830 REM 
840 MOVE 200,100:DRAW 316,220:MOVE 422, 100 :DRAW 320, 220 
850 RETURN 
860 PRINTHZ,v$:1F LEN(v$)=0 THEN GDTO 1030 
870 RETURN 
880 FRINTH1,p :RETURN 
890 MOVE y,x—-B:DRAW 312,114:MOVE y+64,x-B ¡DRAM 312,1+14 
900 SOUND 1,100,10,15,0,1 
910 v$=MID$(v$,2,11) :GOSUB 860 
920 MOVE y,x-8B: DRAW 312, 114:MOVE y+64,x-8:DRAW 312,114 
930 RETLN 
940 SYMBOL AFTER 32 
950 SYMBOL 160,1,3,6,15,31,57,112,63 
960 SYMBOL 161,178,192,96,240,248,156,14,252 
970 SYMBOL 64,66,153,165,219,255 ,189, 153,66 | 
980 SYMBOL 91,0,7,9, 61,119,192,128,0. ELL 
990 SYMEOL 93,0, 224, 144, 188,238, 3, 1, "0 | 

1000 SYMBOL 92,20, 65, 8,34,144,4, 65, 20 
1010 SYMBOL 38,254, 254,254, 254,254, 254,254 ,254 
1020 RETURN 
1030 REM XxX GAME OVER Xxx 
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QA ; , 
1040. FOR. A=1 TO 20:FOR B=100 TO 2 200. ¿rielaledudo lalo] 15,040, 315NEXT- BINEXT A. | 
1050 INK O, O: INK 1,26:INK 2,15, O: PAPER O ¿BORDER p ¿PEN 1 MODE 0 
1060 PEN 2: LOCATE 6 ¿7 PRINT"GAME OVER" od 
1070 PEN 1: .LOCATE 4 ,12:PRINT"PUNTOS:"; ¡USING "be H.P 
1080 PEN 3: INK 3, 15: :¿LOCATE 5,17:PRINT “OTRA? Md JA nn 
1090 FOR A=1 TO 50: poriNRE VS NED A— 
1100 PEN 1 | 
1110 IF INKEY (60)=0 THEN RUN 250. 
1120 IF IR KEY (46)=0 THEN CALL O 


i 
1 
1130 6070 1110 HH 

| | 


| 
3 
| 


j 
a 
j 
| 


+ 
H 
j 
i 
EUEN 
de o 
E- Y ¿ 
3 
i 
$ 


H 
y 


| 
| 
¿ 
j 


| 
| + ¿er 00 dí nora e A 
SE | 


E O A A O A O A 0 li a li il 


UR | 
III 717 
| 

| 

| 


el 
4 Y Lt 
: ¿ j 
¿ 4 ¿ H 4 á , 4 ¿ j ¿ , + 
h i h j 
| ¡ 
, ¿ al 4 j Jenna Ja 
j j j | ¡ ! | 
GS UE. 4 4 $ » a O A A, PR. PE PR 4 j Dino O A A A A, A, A e A 
SUICIDA 477] | 
¿ i 4 ; | La] ab H 
p | j | | i i 
| H ¡ 
pa A A A A SU SU E ¿ | Led 
: . t po] | 


10 REM OOOO SUICIDA prrnesa | ¡0 
20 REM *k ANGEL GARCIA DELGADO * A 1 IU UN T 
30 REM £xX4x%Xx G.T.S. TE | | 
40. REM ho! | | | pal | 
50 MODE. as | | | | | | 
60 INK O,O:zINK 1,26: INK 2,7: INK 3,18 ! mu en nit bai) A A, 
70 PAPER ¡BORDER 0 | | | | 
80 ORIGIN 318,210 | | | | | 
90 FOR a= 0 TO 24P1 STEP P1/70 | | 
0 PLOT 0,0,2 L-] : | 
0. DRAW 300X*COS (a) ,150XS INCa) PS 0 lia A 
DRAWR O, 3OXSIN(a) ,3 | 
NEXT a 
KO FPRINT CHR3 (22) +CHR4 (1); | | 
DOLOCATE 8,12 e pn | | 
e -FRINT "SUICIDA". A A ¿ ¿ ¿ A : dd A A El 0 A 
FRINT CHR$ (22) +CHR$ (0) 3 | lec | : | 
pl E 
j 


INE 2,7,0:INK 3,0,18 | | | 
FOR a=1 TO 300: SOUND 1,8,1,1S5:NEXT a | | | Ll 
INE 2,18,7:INK 3,7,18 | | | | 
FOR a=300 TO 1 STEP. 2 SOUND Ta, 4: SOUND 2,8 <a +1 :NEXT a AN ¡ 
Y INK 2,7:3INK 3,18 | | | Pa 
30 FOR a=1 TO SOQO:NEXT a | | | | 
> FOR a=0 TO SO:PRINT CHR3 (7) ¿FOR b=1 To SO ¿NEXT b ¿NEXT a 
30 (MODE 4 Blade A hi! | 
GOTO 310 | | | | 
FRINT TAR(20-LEN(a$)/2) :FOR a=1 TO LEN(as) | | 
b$= MIDI (as, a, 1) +PRINT b b$3:1F bes" " THEN PRINT CHRS (73 ET | CN 
¿ ¿ e. < .4 ¿ 4 13 4 
| 
! 


NEXT <a : | | i 
300. RINTSFRINT ¿FOR -a514: zo. -200 ¿NEXT aRETURN- e ñ A e encon 
LOREM aa INICIO mee e GRAMA ¿533 | i +) 


20 As=riaa SUICIDA : ¿GOSUB 270 | LJ] 

lO PRINT¿A$= "EN ESTA ET ERES UN Loco PELIGROSO" :GOSUB 270 
HO As$="Y TE HAS PROPUESTO ESTRELLARTE CONTRA" :GOSUB 270 
ias s Los COCHES QUE SALGAN A y TU PASO" ¿G0SUB 270 o. 


PRINT :A$="0. MUEVE ARRIBA? +BOBUB=: 270 


O E AS O A IA 
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: 


270 


japo 


“a. | MUEVE deta 270 
0 8 Bd 


be 400 IF INKE Y (60) 650 THEN 400 Dr 
410 GOSUB Ly] | | 
AO INK O EN 1,26: INK 2,17: 7 INK 3, ,12 
y 430 PAPER O:BORDER OsPEN PA 2 
EY 440 MODE 1 | pe Í pa | 
450 b$= CHRS (160) 4CHR (161) ¿m8=CHRE (162) CHRE (169) : AA 
EN ES=CHR$ (164) +CHR$ (165) PRA Ll | A | 
470 H=13 | a ¡E | 
480 P=0:F=0. T i | | l a l 
490 GOSUB 70 nba Ml 0D A UN TT 7 
500 X=13:Y=371l=1 HA A ETT ETT 7 
510 ORIGIN 0,200:PLOT O, 60, 1 DRAMA 650, osPLor o Elolokale] (650,0 q ; 
má 520 PEN 2:LOCATE 10,H:PRINT"" | ha Ho — + 
530 IF INKEY(67)=0 THEN H=H-1:1F H<10 T THEN H=10 k+?ptd4, 1] | 
540 IF INKEY(69)=0 THEN H=H+1:1F H>16. THEN H=16 
550 LOCATE 10,H:PRINT Es | 
560 SOUND 1,1000, 1 | T | l | EA 
) OPEN 'N ey — , - EU 
580 LOCATE Y,X: PRINT" ¿E i E A —_—+ + 
"o ELE ] | | 
Yo 600 Y=Y-1 | | | L | | ] 
eLo IF X>15 THEN I=-1 l po ii | E E | 
A 4620 IF x< cda THEN I=1 | EN 
630 IF Y<1 THEN Y=37:F=F+1:GOSUB 770 PA 
640 LOCATE Y,X:PRINT M$ > | | ] | | 
650 SOUND 1, ,800, iz + ] . 
La 660 1F X=H THEN” 1F Y=10 OR 1=11 OR Y=12 THEN GOTO 680. e + Adell 
PAY 670 coro szo | | | | 
680 LOCATE 11,H:FRINT ES:GOSUB 750 | | 
Y 490 LOCATE 10, ¿HiPRINT ES:¿GOSUB 750. 
700 LOCATE 11,H:PRINT E$:GOSUB SPA] 
L 710 P=P+15:GOSUB 770. - | UN E to a 
720 GOSUB 750:GOSUB 750. Lit] 
"730 LOCATE 10,H:PRINT " —sG0SU 750 pl | | 
>, 790 Y=37:GOTO 520 | | MN) | 
750 FOR A=1000 TO 1100 STEP 10:SOUND 1,4,1,15,0, 0431 :NEXT. A:RETURN 
=—U OA ARA E F 1 4 
770 PEN 1:LOCATE 4,3: :PRINT"PUNTOS : "Pz sTAB(25) ¿"FALLOS “y 
780 IF F> :9 THEN GOTO B00 IJirily(! O 
y 770 RETURN E A A O A SL Des 1 
800 INK 2,15,0. |] | | 
810 FOR A=1 TO 20 FOR B=100 TO 200 STEP A:SOUND 1,B,1,15,0,0, 31 ¿NEXT B: ¿NEXT AT 
820 MODE O | | 
830 PEN 2:LOCATE 6,7: PRINT"GAME OVER" — q ¡ = | 
840 PEN 1:LOCATE 4,14: 8 dl ns js Ll IE Ly L-— | 
850 FOR A=1 TO 10000:NEXT dae EMM A di 
860 GOTO 250 |] Pa] PH] | | 
870 SYMBOL AFTER 160 | | | | l | 
880 SYMBOL 160,31,57,113,225,255,199,187,56 e | | 
890 SYMBOL 161,128,64,32,240,254,199,187,56 lA | | pe 
-700—SMBOL-1 6244 244-4127,2855 19918756 ——— + TO DU US TONO E E NS 
910 SYMBOL 163, 128,128,128,255,255,227, 221,28 | haa m - 
920 SYMBOL 164,99,136,18, 64,43,136,34,153. LL] a | | 
930 SYMBOL 165, 198, 17,72,2, 312 117,68, 153 litililis | 
Md RETURN | | | 


¿ 
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- NUCLEO ENERGETICO 


¡ 10 REM OXXxXX NUCLEO E 
REM A ANGEL. GARC 


| 30 REM 
| 40 REM 
i St MODE O 


: €0 INE O,OS INE 1,26: INK 2,7; INkH 3,18 
-+ O PAFER BORDER Y) 
| 30 ORIGIN 318,210 
| 20 FOR as0 TO 2xFI STEP F1/70 
! 100 PLOT 0,0,2 
| 110 DORAW 300ACOS (a) ,150*SIN (a) | 
co 12 DRAWR 0,JOXSIN(a),3 
| 100 NEXT a 
: 130 FPRINT CHAS (22) +CHR$ (1) 3 
| 150 LOCATE 8,12 
| 160 FRINT. "NUCLEO" 
| 170 PRINT CHRE (22) +CHR3 (0); 
180 INF 2,7,0: INE 3,0,18 
| 190 FOR azi TO 400 ¿SOUND 1,a,1,15:NEXT a | 
200 INE 2,18,7:INk 3,7,18 


NERGETICO *Xx% 
IA DELGADO Xx 


210 FOR a=300 TO 1 STEF -2:S0UND 1,a,1:SOUND 2,axX2,1:NEXT a 
220-INK 2,7:INK 3,18 

¿Y FOR a=1 10 SOO¿NEXT a 

240 FOR a=0 TO SO:PRINT CHR$(7) FOR b=1 TO SO:NEXT b:NEXT a 
2530 MODE 1 

260 GOTO 310 

270 FPRINT TAB(20-LEN(as)/2):FOR a=1 TO LEN(as$) 

280 b$=MIDF(af,a,1) :PRINT b$;:1F b$<>" " THEN PRINT CHMR4 (7) ; 
2790 NEXT a 

300 PRINT:FRINT:3FOR a=1i TO 200:NEXT a:RETURN 

310 REM Xxx INICIO DEL FROGRAMA kxx 

320 Af="<*" NUCLEO ENERGETICO >>":GOSUB 270 

330 PRINT:AS="DEFIENDE TU NUCLEO ENERGETICO" :GOSUB 270 
340 Af="DE LOS ATAQUES DE LOS ALIENIGENAS" :GOSUB 270 
350 As$="DEL PLANETA DRAKOV" :GOSUB 270 

360 PRINT:A$="LOS CONTROLES SON: ":¿GOSUB 270 

370 A$="Q. ARRIBA A. ABAJO" :GOSUB 270 

380 A$="0D. IZQUIERDA P. DERECHA" :GOSUR 270 

390 PRINT:AS$="PULSA -5- PARA EMPEZAR" :GOSUB 270 

400 IF INKEY(60)<>0 THEN 400 

410 GOSUB 870 

420 CO=24 

430 DIM M(8,2) 

440 MODE 1 

450 ENT 1,10,1,1,10,-2,1 

460 ENT 5] 20, 113 

470 INK 26 3 1NK 3,1812 INK 2, co ¿CO+3 

480 Aleja A=1 TO 6:B$= BS+CHR$ (160) ¿NEXT A 

490 CS$=B3+CHRS (140) +CHR$ (160) 

500 D$=C$+CHR$ (160) +CHR$ (160) 

510 LOCATE 5,8 
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JJJJUda 


AS=B$ :GOSUB 9701A$=C$:G0SUB 9701A$=D$1FOR A=1 TO 5:GOSUB 970:NEXT A 


A$=C$:GOSUB 970:A$=B5S :GOSUB 970 

X=103Y=5. 

XB=X ¿YB=1 

FOR A=1 TO 8 

GOSUB 980 

NEXT A 

A=1 - 

PEN 31G0SUB 740 

A=A+1:1F A>8 THEN Ami 

IF INKEY(67)=0 THEN X=X-131F X<1 THEN Xui 
IF INKEY (69)=0 THEN X=X+1:1F X>25 THEN X=25 
IF INKEY(34)=0 THEN Y=Y-1:1F Y<i THEN Y=1 
IF INKEY(27)=0 THEN Y=Y+1121F Y>39 THEN Y=39 
LOCATE Y,X:CALL 30000 :C=PEEK (29999) 

IF C=0 THEN X=XB:Y=YB 

IF C=ib61 THEN GOSUB 840 

PEN 1 

COOOTE TEABIPRIMTT "¿LOCATE Y,X:PRINT CHR$ (248+RND33) 
SOUND 4,100,20,5+C0/3,0,1 

GOTO 6400 ; 
XM=M(A,1) :YM=M(A,2) :LOCATE YM,XM:PRINT" " 
IF XM>12 THEN IF RND>0.S THEN XM=XM-1 

IF XMx12 THEN 1F RNI>O.S THEN XM=XM+1 

IF YM<20 THEN IF RND>0.5 THEN YM=YM+1 

IF -YM>20 THEN IF RND>O.5 THEN YM=YM-1 
LOCATE YM,XM:CALL 30000 :C=PEEK (29999) 

JF C=0 THEN GOSUB 1040 


0 PEN 3:LOCATE YM,XM:PRINT CHR$(161) 
D M(A,1)=XM:M(A,2)=YM 


RETURN 


O FOR A=i TO 8 
IF M(A,li)=X THEN IF M(A,2)=Y THEN SOUND 1,200,25,15,0,2:G0SUB 980:P=P+5:RETU 


NEXT A1A=1 ¿RETURN 

REM 2% CODE SCREENS xx 

DATA 205,96,187,50,47,117,201 

RESTORE 880 

FOR a=30000 TO 30006:READ b:POKE a,b:NEXT a 
SYMBOL AFTER 160 

SYMBOL 160,126,219,165,219,219,165,219,126 
SYMBOL 161,255,153,189,255,129,255,66,231 
SYMBOL 162,0,36,90,35,36,90,36,0 

RETURN 

REM EXARRRRIRRLARIRER 


PRINT TAB(20-LEN(A$)/2) ¿PAPER 3:PEN 2:PRINT ASIPAPER OPEN 1 1RETURN 


XX=1+INT (RNDS24) :YY=1+1NT (RNDR 39) 
LOCATE YY,XX:CALL 30000 
IF PEEK(29999)<>32 THEN GOTO 980 


1010 M(Ay1)=XX1M(A,2)=YY 


LOCATE YY,XX:3PEN 32PRINT CHR$(161) 


1030 RETURN 


REM 14% MUERTO x3% 
XM=M(A,1) 13YM=M(A,2) 
FOR Z=1 TO 200 STEP 10:50UND 2,Z,2,15,0,12NEXT Z 


1070 CO=C0-2:INK 2,C0,C0+311F €CO<i1 THEN GOTO 1090 


RETURN 


1090 REM £%% GAME OVER %2x 


1100 FOR Asi TO 20:FOR B=100 TO 200 STEP A:SDUND 1,B,1,15,0,0,31:NEXT BINEXT A 
INK 0,OzINK 1,26:INK 2,15,0:PAPER OÍBORDER OPEN 1:MODE O 


PEN 2:LOCATE 6,71PRINT"GAME OVER" 

PEN 1:LOCATE 4,12:PRINT"PUNTOS : "¿USING "OURRRR" ¿P 
PEN 3:INK 3,15:LOCATE 5,17 3PRINT “OTRA? (S/N)" 
FOR A=1 TO 5SO:AS=INKEYSINEXT A 

PEN 1 

IF INKEY(60)=0 THEN RUN 250 

IF INKEY(46)=0 THEN CALL O 

GOTO 1170 
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A vella 
i ¿ 


t 


2) 'eÑ 
XD FEE EA EXTIZ 
de e O 


NAUFRAGO 


10 REM kxkxk NAUE Fat coKK 

20 REM % ANGEL GARCIA + 

30 REM Xxx% G.T.S. MHXx 

40 REM 

50 MODE O 

60 INK O,OzINK 1,261 1NK 2,7; INK 3,18 
70 PAPER OrBORDER O 

80 ORIGIN 318,210 

90 FOR a=0 TO 2*P1I STEP PI/70 

100 PLOT 0,0,2 

110 DRAW 300XCODS (a) ,15SOXSIN(a) | | 

120 DRAWR 0,30XSIN(a),3 PETIT 
130 NEXT a | 

140 PRINT CHR$(22)+CHR$ (1); | | | | 
150 LOCATE 7,12 | A 
160 PRINT "NAUFRAGO" HA. a o LL... Lo 
170 PRINT CHR$ (22) +CHR$ (0) ; | 
180 INK 2,7,0:INK 3,0,18 | 

190 FOR a=1 TO 300:SOUND 1,a,1,15:NEXT a | | | | 
200 INK 2,18,7:INK 3,7,18 e pm 

210 FOR a=300 TO 1 STEP -2:SOUND 1,8,1:SOUND 2,882,1:NEXT al 
220 INK 2,7: INK 3,18 

230 FOR a=1 TO 500: NEXT a 

240 FOR a=0 TO SO: FRINT CHR$17) :FOR b=1 TO SO1NEXT b ¿NEXT a 
250 MODE: 1 
260 GOTO 310 

270 PRINT TAB(20-LEN(a$)/2):FOR a=1 TO LEN(as$) | 
280 b$=MID$(a$,a,1) :PRINT b$5:I1F b$<>" " THEN PRINT. CHRF CT la 
290 NEXT a | | | | 
300 PRINT:PRINT:FOR a=1 TO 200:NEXT a:RETURN | MUS 
310 REM XxX INICIO DEL PROGRAMA xxx Tn | EUA E O A SU E 
320 A$="<< NAUFRAGO >>" :GOSUB 270 | | 

330 PRINT:A$="RECOGE LAS PROVISIONES QUE TE":GOSUB 270 | 
340 qe "ENVIA EL AVION PARA QUE SOBREVIVAS" :GOSUR 270 Lo... | 
350 A$="AL NAUFRAGIO, HASTA QUE VENGA" :GOSUB 270 L | L 
360 AO BARCO A RESCATARTE" :GOSUB 270 | | 
370 PRINT:A$="CONTROLES DE TU BARCA:":GOSUB 270 
380 A$="F1. MUEVE A LA IZQUIERDA" :GOSUB 270. | | 

390 A$="F3. MUEVE A LA DERECHA":GOSUB 270 1 ¡ | UN 
400 FRINT:As$="PULSA -S-. PARA EMPEZAR" :¿GOSUB 270. A + A 
410 IF INKEY(60)<>0 THEN 410 | | ba | 

420 ENT 1,10,1,1,10,-1,1 | o | | | mM Ll 
430 GOSUB 720 | | PETT TT] 
440 INK o, 23: PAPER O: BORDER 23: 1NK 1 ¿OPEN 1 ¿MODE o 1 | E E | 


es 


ALO ALDOS a, 1, 20 ,24 1253 PEN 41 ya S:PAPER $i, he WINDOW 02 +1 201 119, 25:PAPER $2 ,1 4:0L5S 


$2 (a 4 ; ! 
470 AC= 0:FA= de GOSUE 660 | | 


(489 qariip=psyptS| | | LLL] En | | y | | Ly L 
490 y= | | 


500 xa= 1+200r ÍRNDR1 074 ¿ya=O lili 


i 
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dd E 


510 
520 
530 
540 
550 
560 


IF INKEY (13)=0 THEN y=y-1:1F y<2 THEN y=2 

IF INKEY(S5)=0 THEN y=y+1:IF y>18 THEN y=18 

EVERY 50 GOSUB 830 

LOCATE y-1,18:PEN 3:FRINT bas$ 

ya=ya+1:1F ya>17 THEN LOCATE ya,xa:PRINT "  "ixa=1+INT(RNDX10) :ya=1 
LOCATE ya,xa:PEN 1:FRINT av3* 


570 SOUND 1,800,10,10,0,1,31 

580 ON pa GOSUB 600,620 

590 GOTO S10 

600 IF RND>0.95 THEN pa=2ixp=uxa+i3yp=ya+2:SOUND 2,100,10,15 

610. RETURN 

620 LOCATE ypyxpsFPRINT" "ixp=xp+1:LOCATE yp,xp:FEN 2:FRINT pc+ 

630 IF xp>16 THEN LOCATE yp,xp:PRINT" ":¿LOCATE yp,xp+1:PRINT" ":ipa=l:ifa=fa+rl:SOU 
ND 2,400,20,15:GOSUE 660 

640 IF xp=15 OR xp=16 THEN IF yp=y OR yp=y+1 THEN SOUND 2,200,20,15:ac=ac+1:605U 
E-660:LOCATE yp,yxp:PRINT" ":LOCATE yp,xp+1:PRINT" "x 

pa=1 

650 RETURN 

660 LOCATE $1,94,1:FRINT $1,"AC:";¿USING "HH" ¡AC 


670 
680 
690 
200 
710 

20 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 


850 


860 
870 
880 
890 
$00 


910 


920 
930 
940 


LOCATE $1,13,1:PRINT $1,"FA: "¡USING "$e"FA 

IF FA>19 THEN GOTO 700 

RETURN 

P=SACX1S:FOR A=1 TO 20:A$=INKEYS:NEXT A 

GOTO 840 

SYMBOL AFTER 160 

SYMBOL 160,224,240,240,249,135,126,63,0 

SYMBOL 161,0,0,129,64,253,255,248,1 

SYMBOL 162,60,78,191,255,129,66,36,24 

SYMBOL 163,110,255,126,255,255,110,0,0 

SYMBOL 164,3,11,5,3,255,127,31,15 

SYMBOL 165,192,208,160,192,255,254,248,240 

avé=" "+CHR$(160) +CHR$ (161) 

pc£$=CHR$ (162) +CHR$ (8) +CHR$ (10) +CHR$ (163) 

ba$=" "+CHR$(164) +CHR$ (165) +" " 

RETURN | 

CALL 2£BD19:RETURN 

REM XXX GAME OVER XXX 

FOR A=1 TO 20:FOR B=100 TO 200 STEP A:SOUNO 1,B,1,15,0,0,31:NEXT B:NEXT A 
INK"O,OzINK 1,26: INK 2,15,0:PAPER O:BORDER O:PEN 1:MODE O 
PEN 2:LOCATE 6,7:PRINT"GAME OVER" 

PEN 1:LOCATE 4,12:PRINT"PUNTOS: "¿USING "HHRARH"¡P 
PEN 3:INK 3,15:LOCATE 5,17:PRINT "OTRA? (S/N)" 
FOR A=1 TO 5S0:A$=INKEYS$:NEXT A 

PENA 

IF INKEY(60)=0 THEN RUN 250 

IF INKEY(46)=0 THEN CALL O 

GOTO 920 | 
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GARETA 


MES 


ie DNPEN 
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REN parra 
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ME 


rus 
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+R INIA 100) ,C0S (A) + (804 


Nba 160). 


SOLITO 1 
NG 
ENE 


riojano! ¡US 
s 


DAR 


12) > 1 HUUN (ISOO/F) 
2 8 dl 


THEN (2ERL. oc 


240 ENE 


PB 
ANN ORIG 


LALO FRINT sel E 


0330. PRINTO e E 


cm des MENU E 
He 


an 


IR EAOBEE ara 
320 PEN 3:PRINT "XAx Ceior 


0340 PEN 1 ¡PRINT| * 


IN-0,0: : IRAWIR 600,0, 1: sua De 


E ¿ORAR 


Lu OPCION 


PRINT" 


| Ue 
ques sTI ia 


5 
nm : Y 
' E 
| mu 


A Dif ha 
UY] j La | | A 
ELIAS | 1 

=600, Os DRAMA Ab Ml 
dicóbio EN] a. A PS DA pp ia pa. 


30 ER Ed 
eo Pe o 2. 
370. PRINT a .l 


o PAINT, mo PA | mn 
300 FR edi eros 


410 FEN 3: PRINTER uns 
20-1F INKEY(64)=0 THEN-GOTO 4 


ree DATOS 


SUS =0 THEN pena, 880. 


bnoor xx" 


N THEN RESTORE 9 o 
S. EL AMSTRAD - note 


arem oa 
10 de id 


T - 


Y 900 READ AFN. 


940 NEXT A | e Poio | | 


520 IF N=1 THEN RESTORE 980 


"GREGFOR Bi TO GaFOR As 215 
r 1 A, d: NEXT A,B: AC=AC+1 
7360 E NR<3N THEN FRINT 
=1 TO 100: PLOT RNDEGDO, 
790 NEXT FP | 
250 MODE O3FOR-A=1 TO 15: INK AÑ 27=A:7 bu A 

760 PEN S:PRINT "dolor RES SULTADOS - ao Bora 

| 

| 


TO p STEP. --1:TNK 0,5 :3SOUN 


“INCORRECTO. LA RESPUESTA ERA "¿R$:SOUND 
RNDX400 NEXT A | | 


770 FRINT" ":¿PRINT" " 

780 PEN 2:PRINT ” ACIERTOS.....";AC 
790 FRINT O" "o | 

800 FEN 3:PRINT " FALLODS.......";20-AC | 
BIO PRINT*—FPRINT?—TPRINTA—AáA——á— —— — 9 
820 PEN 1:PRINT" PORCENTAJE :*; ¡ACXAS 0" | pe" 
830 PRINT" "¿PRINT" "¿PRINT" "o | | | 
840 PRINT MOR | l 
850 FOR A=0 TO 100:A$=INKEY$:SOUND. 1,4, 1,1S3NEXT A | 
860 IF INKEYS=""THEN 860 7 | 
870 GOTO 250 | | | | 
880 MODE 2inESTORE +Lol pH] 


| 
890 FOR A=1 TO 
910 PRINT "= "¿As¿tisl UR ". Y 
B=1 TO N:READ Bs: AS "¿BS, ¿NEXT B | 
"¡PRINT" "“:PRINT " ' | 


E, O O O A A t- 4 


960 DATA CABEZ: CUM 
970 DATA TEMPORAL, MASE? ERO ,PTERIGOINDEO, 
ESTERNOCLE IDOMASTOIDEO CUTANEO 

980 DATA TRONCO,8 | | | 
990 DATA PECTORAL ,SERRATO, INTERCOSTAL. +RECTO,O -ICUO, TRANSVERSO, CUADR 
A 

1000 DATA EXTREMIDADES 
1010 DATA RSTETOR 5 


PP A A o a 


18 
RAESPINOSO, INFRAESPINOSO, REDO 


AS, de 4,2, 


ep A A 


530 IF -N=2 THEN RESTORE 1000 
-540 READ R$,NN:NN= INT (RNDANN) ¿FOR Z=0 TO NN: ¿READ IS¿NEXT 2 
550 PEN 3: PRINT" , | 
560 PRINT"PREGUNTA :"5P5TAB(17) ; ¡UMUSCULO: "sia 
0570 PRINT " "¡FEN 2 T | 
SBO FRINT "o "> | 
590 PRINT "A QUE PARTE PARTE DEL CUERFO CORRESPONDE "¿:¿PRINT " “¿FRINT" 
¿EL MUSCULO CITADO: ” 
600 PRINT" "¿PRINT" O | 
610 PEN 3:PRINT " (PULSA 1,2 0 3)" 
620 FEN LiPRINT " " | 
630 PRINT" ":PRINT " 1. CABEZA (Y CUELLO)" 
640 ERINT" "SPRINT" 2. TRONCO (TORAX- ABDOMEN) * 
0 RENTA MARN BER TREMIDADES e mp 
460 SDOUNO 1,100,10 Ls | 
670 REM | | | | 
680 1F INKEY(64)=0 THEN NR=0:GOTO 720 | 
690 1F INKEY(65)=0 THEN NR=1:GOTO 720 | | 
CRONO TTF INREY(S s7=0 THEN NR=Z+GO0TO 720 | T 
710-60P0-670--| | 
220..PEN.-2IPERINE A ¿PRINT" "1 -NR=N THEN PRINT dE ORREGTO++ 


i 


LA RESFHUESTA ES 


no A 


O E O EA, SOS A 


| i O 
¡| pasa Js RR A ¡DUNE E i pan 
008 SS 00 0 A A R,LINGUAL, 


1 O 


PT O a. ESO. 


o 


10 REM XXkXX cl 
20 RE | 

30 REM Ma | 

40 REM | | 

50 MODE O EN E E 0 00 A A ml 
60 INK 0,0: INK 1 ¿263 INK 2, +71 10 d 18 | i Es | por 
70 PAPER O: BORDER. O..—d.—. l | A | 

80 ORIGIN 318,210 | OTI | mitemas 


90 FOR a=0 TO 2*PI STEP. P1/70 
100 PLOT 0,0,2 
110 DRAW 300XCOS (a) ,1SOSSIN(a) HHT | | 


120 DRAWR O ¡3OXSIN(a), 3 
130. NEXT A A a 
140 FRINT CHAS (22) +CHRE (1) 3 
150 LOCATE 8,12 Ll 
160 FRINT "MÓDULO" | 
o INT CHR$ (22) +CHRS(0)7 | Ll | 

IRON 2 TOTO TE A Hesralia iotili ¡AAA AA A 
190 FOR a=1 TO 300:SOUND 1 1231, 15:NEXT a po] | PA 
200. INE 2,18,7:1NK 3,7,18 | | 
210 FOR a=300 TO 1 STEP -2:SOUND 1.2 yl ¿SOUND 2,282, L:NEXT a 

220 INK 2,7: INK 3,18 EA IA 
230 FOR ari TO SOÓ:NEXT a | | q. | 
240 FOR a=0 TO 50: ¿PRINT ¿CHRS (7) ¿FOR pel TO SOrNEXT b:NEXT a | | 
230 MODE 1. | | e WENO 
260 GOTO 310 + DUO US NN y 

RO o ES $) /213FOR asi. 101 LEN(as) AAA 
280 b3=MIDS(as,a,1) ¿PRINT b$3:1F bsor o" ci mo CHR$ (7) ls 
290 NEXT a | 
300 FRINT:¡PRINT¿FOR a=1 10 200: NEXT. a: RETURN 
310 REM Ok INICIO DEL PROGRAMA kxkxk | | | | 
320-A3="<< MODULO LUNAR >>":GOSUB 270 M0 US IRON 20 0 2 

PRINT:A$="RECOGE CON TU MODULO, LAS CELUL 5” :GOSUB 270 | 

DA $="SOLARES QUE SE ESTAN RECARGANDO" ¿GOS 270 Laca 

A$="FUERA DE LA ATMOSFERA, PERO PROCURA" :GOSUB 270 

As=" NO ESTRELLARTE CON LOS ASTE 

 PRINTEREACUSO . MUEVE IZQUIERDA" :GOSU 

As= ¡CURSO 7 MUE E DERECHA" :GOSU 270 


> a 


j 
| 
j 
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li 
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4 PRINT: :Ad=" 
) IF INKEY( 


A 


FULSA -S- PARA EMPEZAR": 
25.20 MOB 


430 PAPER 0:B RDER Ó:PEN 1; "MODE. o 


440 WINDOW 1,20, LEA delia cad ", 1, 20, 1, nl 

cu 450- ES NE="4 pa A | pa 

o -460--00= LEN 20: N Ml e 
470... X. AN | | i 


e e e 
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| 


ml 
] 
NKEY (4 F T=0 THEN XN= 1 :SOUND 4 200, Ss, ¿15,650 
T<>0 THEN XN=XN+1 : ¿IF OX 21 THE -GOSUB 760 Ñ 
 INKEY(8)=0 THEN YN=YN-1:1F YN<1 THEN YN=1 
INKEY(1)=0 THEN YN=YN+1:21F YN>20 THEN YN=20. 
YN,XN:CALL 30000 :C PEEK (29 7.. 
N GOSUB é10 Ll 
E YE, XBiPRINT" ":LOCATE YN aer 
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| | 
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Ra? Er Rda 
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| 
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' 3 ANGEL GARCIA DELGADO *kX 
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4 19 DEL PROGRAMA. | | 
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ENCUENTRA" ¿BOSUB 2707 
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INT 5 :A$="T PUEDES [REGULAR EL ANGULO DE TI 0" :G0SUB 27 
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RS 
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PRINTE 
310 REM 
320 As$=" 
O FRI 
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WIND 
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PARA Eheezan”a GOSUB 270 


1,65 INK 24 18, seu 3, 


| 


E O 


A ge 


dl 


| 


a=1 TO LENCas) 
dd ,1) :PRINT b$;:1F b$<>" “ THEN Pre Esos | 


ETURN 


A O A O DES ERAS 


sli 1 SOUND, Zjax2,1: JNExT 


TO SO:NEXT. eN 


MURO" : 


A 


STRING$ 


oi 


(38, 


same een 


| 


'O 


OSUB 270 
70 


1] 


A O A 


$ O O lanas i po | E 4 ¿ 
a de J | ¿ H j 

po] i ¿ 
| 


É 
—S1O NEXT BIPRINT AS. TINE 
- 520 GOSUB 710 Pi pu] 
Li 530 ENT- 14454 p14 1 
540. 1F. INKEY (67)=0. THEN D=1 | 
550 1F INKEY(69)=0 THEN D=2 pal o o o rc cd a 
- 560 le INKEY (34)=0 THEN D=3 | | 
570 1F INKEY(27)=0 THEN D=4 | 
580 X=X+(1 AND D=2)-(1 AND D=1) 1Y=Y+ 
590 LOCATE Y,X:+CALL 30000 :C=PEEK (29999) pop pes 
--600-1F-C=92 THEN SOUND 1+100+5,15,0,1:P=P+S1G0SUB 740 a e pl 
610 1F C=91 OR C=64 THEN GOSUB 640 | | | 
620 LOCATE Y,X:PEN S?PRENT e" | | | 
- 630 GOTO 540 | | | | l 
440 REM ::2 PIERDE VIDA pr | ] | | 1] 
A 10 VS=MIDS (VS, 2, 3y alo ' de A 1 > meo A A A 4 mi vor anas e a ¿ mp 
-£60 FOR A=100 TO'1 STEP -2: SOUND 2 All 15,0,0,31:NEXT A | 
- 670 GOSUB 710 | | | 
680 X= 1+INT(RNDIZO) :Y= 1+INT(RNDE39) | | | | | 
690 LOCATE Y,X ¿CALL 30000: 1F PEEK(29999)=92 ' THEN RETURN ¡A MR in Al 
700 GOTO 680” 7 pon 
710 PENRH1, 1 :LOCATE 81, 1,1 :PRINTAL, "PUNTOS: "3 ¡USING did EL PEN$ 1 ¿3 :LOCATE LE ,3 
0,1:PRINT $1,VS3" "3 | 
720 IF LEN(V$)=0 di PENAL 2:PRINTOS,*R. 1.P.":GOTO 8so | | | 
730 RETURN Da 
740 PENH1, 1:LOCATE. rl ,8, 1:PRINTW1 USING "AMAAAN"GPERETURN Ll | 
750 REM Yk CODE SCREENS 310 | | | | 
760 DATA 205,96,187,50,47, 117, 201. | | | | | 
- 770 RESTORE 760--y7 | | | | 
- 780 FOR a=30000 TO 30006:READ b: POKE: ayb: NEXT AA O 
790 GOTO 800 | | | | 
800 SYMBOL AFTER 32 
- 810 SYMBOL 64,60,102,223, 191,191, 255,126,60 | 
820 SYMBOL 92,0, 0,24,44,60, 24,0,0 | | ol 
830 SYMBOL 91,0, 239, 239, 239 ,9, 254,254, 254 1] 7 | HE 
840 RETURN. | | | | 
850 REM kXX GAME OVER Ln | E] 
860 FOR A=1 TO 20:FOR B=100 TD 200 STEP A:SOUND 1,B, 1 ,15,0,0,31:NEXT BINEXT A 
1 


| A | 


ra E A A e 
f 
¿ 
H 


j 
A A A A, A OS DE 
j | 
i ¡ 
| | 
1] 
Y 


¿ po 


(1 AND D=4)-(1 AND D=3) 


enés da 


870 INK O,O:INK 1,26:INK 2,15,0: PAPER O :BORDER O: PEN 1 ¿MODE o. 
- 880 PEN 2: :LOCATE 6; 71PRINT"GAME OVER" 
890 PEN 1:LOCATE 4,12:PRINT"PUNTOS: "¿USING 'RARRRA GP | 
900 PEN 3: INK 3, 15:LOCATE 5,17:PRINT "OTRA? (S/N)" | | 
910 FOR A=1 TO 50: A$=INKEYS : NEXT A! |] | 
920 PEN 1 | ' | Ed | A loa | 
930 IF INKEY (60)=0 THEN RUN 250 | | l | 
940 IF INKEY(46)=0 THEN CALL O | | 
950 GOTO 930 | | | | 


D 
a 
D 
E 
D 
Y 
o 
y 
y 
a 
D 


4 


oe 


=S Exa En 


. 
ee 
a a E RS 
Mara Doma aaa 
j 


DIBUJO. 


10 REM ada aa DIBUJO OOOO xk 
20 REM % ANGEL GARCIA DELGADO x* 
30 REM Adol G.T. He OOOO 
30 REM ! : | 
SO m= 1: ¡GOSUR 430: sosuB 620 
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A A A A A 


> FOR A=0 


A, ¿As ASNEXT, A 
PAPER OSBORIER 0 2 


2uE-p 
F 


- 50 REM. 


cd 
0400 
cout] (9 TIRAN pon 


ASO 


MEE 


21 Fur Aa ANDO + po dal 


ed 3] 
O0:CALL— METE. 


| F B3= pre 
39 o TF Bae"CIr 


380.16 b$ AÑ lb 'N GOSUB 430 


G:XO=X=N NoE 
Atos LOT RKCOS ( SI 
COS (A), ¡RESINCA) > 


A AUTOR: 


FRINT: PRINT 
E: O PRINT: -PRINTIA. 


ICON AC ruaLr 
T:PRINT"X 


 INSTRUCCIC Esa | 
1490 PRINT: ¡PRINT"- K 
] mr 


- TRAZA UN C1 


1-8: XDEXTN 1y b= y 
A 


aca: EL: o a 


rss israni 


O A celica | acord 2 j ne 
a GA CHA ¿DELSADO AE ea 


R EL MOBO DE PANTE ALLA co, 


EN EL. 


RABA LA. qa LA CON EL. ¡NO 
CARGA UNA PANTALLA" 
BO RA LA PANTALLA" HEEE 
DEL COLOR Xx" 
ESTA AGINA DEI 


4 : SOUND: p 12004 ALL METE 


CURSOR Y apor O-x 


pens y 


SEMA TA MANZANA ENVENE 
2 REM xk ANGEL. 


O REM OOO B.T.S. 
40 REM 
; E SYMBOL 


o SYMEOL. 
Bo. 


AFTER 160 


doy 10,0,0,0 


16: ere 


GARCIA DELG 


6/37, Hi 


Ae dal 193.95, | 
1254,254,25 


ooo 


yi20', Er 12 ye 
127,127, 


1,05 INK 


ro 1000 


60 INK 2,6: INK : ld 
O MODE 1:P=0:D1M M(B,5) 


ul EEE 


E DRAWR COSA) x300 


STEP 


4 


¿50 i 


XRXXR 


24 j 
63,30. 


4125241 


48 


ADO AO 


2463 INK 3,18 


¿SINCA)R1 


4: SUUND 1 As Y 5,6,0 


13. 


0)-150: a 700 
AL, dEl 1? 119 


$77] 


E a A A 


Mx A! 


AAA 


3 (8) +CHR4 ll: 


Y LUEGO 
ZO: PRIN 


+ | | ñ 


an 


¿ 
j 


COLUMN 


AFG:PEN 3: PRINT Ar: NEXT A 


NS 


1% :SOUNI 


ea peque 


E A PA: de 


3, 1000- AI 


a 


e A 


A O A A 


520 FOR Y=1 Ta 16 ST 
530 PEN 1:LOC TER1, a HA 


PUT $2, EOS, JUN SOLO 
=UPPER$ (C0$) | 

I$="ABCDEFGH UA 
O: FOR A=1 TO LEN(BS$) 

: C$=MIDS(B$,A,1) THEN 


I=M(C,F). 


- B=0 THEN Mec,F)= =1 :¡P= -P+5 Na 2:608UB 
15:NEXT A pu] | 
E=1 THEN SOUND 

-GOTO-590-. Ne A 4 
O LOCATE $1, c 2-1 ¿FX -1:PRINT 41,0S:R 
O LOCATE 14,2: PRINT PUNTOS: 2"¿P:RE 
FOR A=4 pol TO ( O STEP -1:S ds 

) FOR C=1 TO 8:FOR F= 


A 


xx 


4601 MITIN $2, 0,0 [11] 
ES 126 227, 185,207 LY] 
128 l | 


NEXT A: IF C=O THE -POUND.. 1 400, ,50:60To, 630. 


E=2 THEN PENA, E Go0su 7305 ¿SOUND : 1, ¿4004 so:GOT0 750 | | 


730 FOR A=1 TO 1000 STEP 


| HR Le rr A 
y o RA EA 


110 SyHBOC al 
120 | 


130 


R—140 SYMBOL -: 
150.8 


160 
170 


("1808 
. 30 Sra 
20 o hr 


210 
220 


3h 1192, rapaz 
"2ZDS, 50; 16 

206, 0,7 n= id 2, a 

2 0,22 240: 176,112,22 0,248 y 

24222.4139 1264071 0 | 

209,4 ,164, 68,132 126, 199, 

210,0,5,11 ,23 122,11, 223, 4 
,135, 10,12 raza 


OTO 400 
hi 
Pisos 


1 
RINT" ” 
N- 1 5PRINT" MP 


-208,1,0, 


IL 211,3,195 

212 0,0,0,119,238. 

-26:MODE 1:INK O, 

A 2,2: PEN 
1 


113: ¿PR 
E 
a 


50 


¿PRINT" 


0, 48, 104, 161,3 
,104 ,208, 232, ,244 


33,192 mbr EPT 


0: INK 2,15: 1NK $3 
R «1 yO: :0LS $ Ji ] 


| : 


sIcHRs (212) ¿NEXT 
$ (208) +CHR$ (20 
 "+CHR$(210)+CHR$ (211) +" 


B(231) 3 1PEN TaT=T+1: AS T=z | 


ONE NA 


cd 


4" "” 


0,-100 


Aa? 100 1BRAWR — bl 
0: NEXT. a IAN 


"=633, ana O 


Ea y 
JR E | 


rbd AER 


E 


O 


| qe 


10 REM OOO peros EP anna | | E] | 


20 REM XXX ANGEL GARCIA DELGADO AX G.T.S. XEIKk | | 7 

230 REM naaornocoe OOOO ORO a UNA 

tQ REM. | | | O E | 
50 SYMBOL AFTER 160 — | | | hol | lite 
60 SYMBOL 160,36,102,239, 297,299, 255,126,60 l | | | | 
170 SYMBOL 161,0,0,0,24,24,24,0,0 ERA ARIANE NA A 
80 MODE 1 | | | 
O PRINTS ROO ooo TRAGON + ANGEL GARCIA DELGADO 
-- * GT: rrpp | | | 
LLO pu Domoaimmel | 
110 FPRINT" CAPTURA LAS BOLAS DE CARAMELO QUE CAEN" | e A 
1120 PR INT:PRI INT" DE LA PARTE SUPERIOR DE LA PANTALLA.” 
1130 PR ¿INT | | Lol | bo... 
1140 PRINT:FRINT:PRINT" CONTROLES: " Ml | 
150 PRINT:PRINT" CURSOR <. IZQUIERDA" O | Pa 
07 EN 460 -P 2INT:<PR A a E CURSOR *. DERECHA” de E a) ep 
170 PRINT SPRINT PRI oOOdARO OE SODORODObDÓRÓÑÓaS 
1180 FOR A=1 TO 6000:NEXT A | elije 
190 FOR A=1 TO 1000 STEP 3:SOUND 1 ¡Ay 1 ¿NEXT A 7 | 
200 DEFINT a- | | 
210 MODE 0:As HR (190) BSCH (161 90H (8) <CHRE ACHRE(S2 —_eer 
220 si fit 55,1,25| | 
230 WINDOWW2,16,20,1,25 | eS | 
240 WINDOW 6,16,1,24 | Lo. 

1250 INK 0,0sBORDER OrPAPER 04015 
260 INK 1,26:PEN 1:PENH1,1:PENOZ,1 | 1 | 
2270 INK 2,4:P PERKI, 2:CLSH1 :PAPERNZ ,2:CLSW2 | | 

280 LOCATER1,1,3: ¿PRINTH1," BOL" :PRINTH1 :PRINTH1," 0" | | 

| 2r0t ICATEN2, 1,3: RENTA, pe PUN" ¡PRINTOZ:PRINTHZ," 0% y 3 
mp 300 P= 13 dido PS O, sas Pe ME app A OS RT mp PP A A A 
310. Xx=S5. ' | L | 
320 FOR B=1 10 20 | | 
330 LOCATEN1,1,S:PRINTH1,B | | MM | 
340 L( Ann ¡S:PRINTHZ,P | l a | 
DS 3 ía) -H= 34 INT( Dx 10) A O SUS A Pe | il cp A a A sde pa da 0 Pen 3 las edil E 
360 1e2 | | | | | | | 
370 LOCATE X, 231PRINT" " A | | | 
380 IF INKEY(8)=0 THEN X=X-1:1F X<1 THEN X=1 | | | 
390 IF INKEY(1)=0 THEN X= ERC EN Y SD A O A 
LOCATE X,23:PRINT A$53 | | o 
LOCATE H,1I:PRINT B$:1=1+1 EA | Ñ 
IF 1=22 THEN IF X=H THEN SOUND 1,100, 107 1s :P=P+1:GOTO 460 | 
0 1F 1524 ld SOUND 1 ,500,10,15:60T0 460 La l 
olebro ao 1 tt E 000 A A A ALLE A A 
-LOCATE H qa -19PRINT" MA NEXT. B | al Me | 
MODE O Pu Lo | mm Man | 
LOCATE 6, JE: ¡PRINT"GAME OVER" IS | | | | 
(LOCATE 5,13: PRINT "PUNTOS . .*¿P Pr | E LETS 
o So A + +p- 200 mp q _ ___AX4ÉEEE>PEP5zmzoPAÉA Á 0 de O A eN e AA NT 
, UND 1,4,5,15,0,1 31 dd Li | O 
SE A H ñl bal | '” -] 
' RUN, 50 | ki . De | Lolo L.. 


EXEX AS DE CORAZONES x 
A ANGEL. 
cl 


O REM K 
O REM E 
30 REM k 
REM 
- MDDE de : INK 0,26: INK 
hol PAPER O:BORDER 26:PE 
70. ORIGIN 316,200. : 
O DEG 


6. T. Se 


ERA 


PA A 


1:CLS 


GARCIA DELGADO 


¿03 1NK 2,8 


2eRs 
a 
es 


' 


O FOR A=O TO 360 STEF. 


110 DRA 
20 SOUN 


S0XCOS(A),110 


a lil dh 
1,4A,1 | 


15 


00 A (z|7 


| 


conga 


qu) al 


d: ¡PRINT 


0 A A E! 
140. PRINT Presi UAcEs 
ISO PEN A | 


ml o 


240 FOR Aso TO 1000 :NEXT 
250 MODE 1 | 


260 FRINT nera AS. DE 


Bs=CHRS 
IN ES=CHR$ 
DF=CHR$ ( 
¡20,15 
T$= ..» 


TEVAL(TE) 
2SN=T; 1 me 1 THEN As= 


e l 


O 1F 1$<>"1" AND 2 AND 


CHAS (22 ) ¿D$=CH $229) 
ÓN 27) :E4= e 229) 


pe 


1986 - A 1GOS DEL 


910 FASFAr1 A e OT A 
-920 SOUND 1,500,530, 15 | | | 
930 FOR A=500 TO 7 JO SOUND 144, 1, 151NEXT AIRETURN 


530 A$=E$:N=2:GOSUB 560 
540 A$=D+$:N=3:GOSUB 660 


550 FOR A=1 TO 1500:NEXT A:GOTO 340 


560 WINDOW 41,8,15,10,19 


570 WINDOW $2,17,24,10,19 


580 WINDOW $3,26,33,10,19 

590 RETURN 

600 LOCATE $N,1,1:PRINT HN,CHR$ (150) ¿G6HMñR$:(154) ¡CHR$ 154) ¡CHR$ (154) ¿¡CHR$ (154) ¿CHR 
$ (154) ¡CHR$ (156) 

610 CS$=CHR$ (149) +CHR$ (207) +CHR$ (207) +CHR$ (207) +CHR$ (207) +CHR$ (207) +CHR$ (149) 

620 PRINT AN,CS:PRINT 4N,C$:PRINT $N,CS$:PRINT *N,CS$:PRINT $N,CS$:PRINT $N,C$:PRIN 
T WN,CS:PRINT 4N,CS 

630 PRINT RN,CHR$ (147) ¿CHR$ (154) ¿CHR$ (154) ¡CHR$ (154) ¿CHR$ (154) ¡CHR$ (154) ¿CHR$ (15 
3) 


440 SOUND 1, 200,5,15 


650 RETURN 

660 LOCATE $N,1,1:PRINT $N dba dd dl li ll diri dd ld ¿CHR$ (154) ¿CHR+ (154) ¿CHR 
$ (154) ¡CHR$ (156) 

670 PRINTHN, CHR$ (149) "1"3" "+CHR$ (149) 


680 PRINTAN,CHR$ (149) 5087" "+CHR$ (149) 
690 PRINTHN, "CHR$ (149) +" "+CHR$ (149) 
7700 PRINTHN,CHR$ (149) +"  "4CHRS (149) 
710 PRINTHN CHR$ (149) +" "4 CHR$ (149) 

720 PRINTHN,CHR$(149)+" ——— "+CHR$(149) 
730 FPRINTAN,CHR$ (149) 3" "¡AS ¿CHR$ (149) 
740 PRINTHN,CHR$ (149) 3" "1" CHR$ (149) 
750 SOUND 1,100,5,15 
760 RETURN 


770 LOCATE 6,25 ¡PRINT"ACIERTOS:"¡AC:LOCATE 237251 PRINT"FALLOS:"¡FA 
780 IF FAA THEN GOTO 800 


790 RETURN. 
800 REM X*kxx FINAL XXX 


| | 
_810 FOR A=0 TO 1000:SOUND 1,A,1:NEXT A 
820 MODE O | 


830 PEN 2 | | | i 
840 INK 2,15,8 | | | | 
850 LOCATE 6,121PRINT"GAME OVER" | 


860 FOR A=1 TO. 5000 ¿NEXT A. ae tallas linia 
- 870 RUN 1 7] 
880 AC=AC+1 | | | | | 
890 FOR B=1 TO 101FOR A=0 TO 26:SOUND 1,A,1,151NEXT AINEXT B po 
- 900 RETURN e | O 20 20 UE 0 1 IN 


| 
L 
| 
| 
| 
| 


ol | | IM 7 | MENA | 
10 men das CCLIMDBRAMA PA A po 
O REM 28% ANGEL GARCIA DELGADO ARSAESES | LIiaAd] l 

| 30 REM A GT A 

-26- AMIGOS DEL AMSTRAD - 1986 — o e lit l 


- 40 REM 

50 MODE “O: INK 0,26: INK 1,0: INK 2,8 
-60 PAPER O:BORDER 26:PEN 1:CLS 
-?70.ORIGIN 316,200 

80 DEG 


90 FOR A=0 TO 360 STEP 5 | 
100 PLOT 170XC0S5(A) ,40RSIN(A) ,2 | | | 
110 DRAWR 1008C0S(A) ¡BOXSIN(A)' i i | | | | 
120 SOUND 1,4,1,15 ho dl La a me 7 E MI 
130 NEXT A | | | | | 
140 PRINT CHR$(22)+CHR$ (1) | | | 
HO) 150 PEN 1 | | | | 
160 LOCATE 6,13:PRINT "CLIMOGRAMA" | | | | 
A 70 INE ZE. de + 5 55 AAA AA | 
180 FOR A=0 TO 500 | | | | | | | | 
- 190 SOUND 1,A,1,15 | E l | | | 
200 SOUND 2,4+5,1,15 | | | | | | 
210 SOUND 3,500-A,1,15 AER AA AAA 
220 NEXT A | | | | | 
- 230 FOR A=0 TO 1000 NEXT A | | | pa | AN 


240 MODE 1 


| | | | 
250 PEN 11PRINT * ESTE PROBRAMA babel UNA GRAFICA" 


| ¿ 
| 


yy 


260 PRINT" “¿PRINT" (52 PEN: Vol ut dl 2 la AMA" 5 ¿PEN LGPRINT) CON LAS LLUVI 
LAB Ly 7 ilivalimal alicia 
270 PRINT" ":¿PRINT" Ñ TEMPERATURAS DE TODO EL ANNO" | | | 
280 PRINT" ":PRINT" ":PRINT" EL GRAFICO DE BARRAS REPRESENTA". | 
290 PRINT" ":PRINT" LAS PRECIPITACIONES EN mm/m?2 (ROJO)" | | | | 
300 PRINT" ":PRINT" ":PRINT" EL GRAFICO DE LINEAS (AZUL) REPRESENTA" pp 
310 PRINT" ":PRINT" LAS TEMPERATURAS EN GRADOS CENTIGRADOS" ho po 
320 PRINT " "ÓPRINT " "sPRINT" ":PEN 2:PRINT “INTRODUCE LOS DATOS. POR FAVOR Lobo 
Epia | | | | AE E 
300 PEN 4: pos TE Ml | | | 
ETA ae le OLEO CD UCI UD 
350 DATA ENERO, FEBRERO, MARZO ABRIL, MAYO +JUNIO, JULIO, AGOSTO, SEPTIEMBRE ¿OCTUBRE ,NO 
| VIEMBRE ¿DICIEMBRE | ¡ | | e 
360 RESTORE 35 | | 
370 CLSMLIPRINTAL o rprintas basamccaracasa teneeranijess añadetazarata DOLO 
380 SOUND 1 ,200,100,15 Ll | | ol mM | | 
390 FOR A=1 TO ISOO:NEXT A | | | | | 
400 FOR A=1 TO 12:READ M$ | | Me | payo] 
a 410 CLS R1:PRINT 11, "TEMPERATURA DEL MES DE - rider, q o-| Pro 
420 INPUT pi E IF D(A, ++<p-pR D(A,1)>55 THEN SOUND 1,479,50,15:0070- 410 l 
pp 430 SOUND 1, 200,5 | pan | ES | | A 
440 NEXT A | | | | | | | 
450 CLSH1: :PRINTH1, "np CORDERO PRECIPITACIONES rra | | 
460 SOUND 1 ,100,200, 1S5:FOR A=l TO 1500:NEXT A | | O 
480 CLSH1:PRINTH1, "PRECIPITACIONES MES DE ¡qn e | | i 
, 490 PRINTR1," " INPUTH1,D(A,2) | | | | 
500 IF D(A ,2)<0 OR DEA» 2)>550 THEN SOUND 1 ,478, 50 ¡1516070 480 | | | 
O S1O NEXTA BRUMNANAMNMIUNARA RUN ERMA A ll 
520 MODE 1:INK 1,O11NK 2,6: INK 3,14. | | | | r | 
530 PEN 21PRINT"MES: TEMPERATURA: PRECIPITACIONES" 7 | | | 
540 PEN 1 M7 | | | 
550 RESTORE 350 O a | Hl | ' | 
Y) 570 FOR A=1. 0 12 | l Lobo | | | ¡ 
580 READ M$ ¿PRINT MS¿TAB(13) y DIA, 0 yrasco 1062 21 || | | | | 
590 M=M+D(A, 1) ¿P=P+D(A,2) a | WENN | | 
1 600 NEXT A i ¡1 MO O EN A A pronpenpeeetal | 
- 620 PRINT DU ON E pajar! ha ! 
630 PEN 31PRINT "TOTAL dada Pp LE] ] | 
640 PRINT " ":PRINT" "¡PRINT"PULSA -G- PARA VER LA GRAFICA >>” | | 


y 650 IF INKE Y (52) <>0 El 650 po A M ¡0 


660 SOUND 1, »100, 50,15 A VTTTTITFTTT - ps y” 
680 PEN 1 ! | | | ] ] 
L | La _ | )- AMIGOS DEL AMSTRAD - | 
: e : : 


10 REM aaa DONUTS ERRE 
20 REM xXx*k ANGEL GARCIA DELGADO XXXXX 
(330 REM EXRXXRANAR G.T.S. LEE 
40 REM 

50 FOR a=1 TO 15: INK a, 26-a | : 
-60 NEXT. a Dlciladandl 


70 


INK O,O:FPAPER O: BORDER o 


80 MODE O 
190 ORIGIN 320,200 


100 


to 


120 
130 
, 1140 
:150 
Mic 


28. 


FOR a=2 TO 15 

FOR b=0 TO 2kxPI STEP -PI/S 

PLOT 20kaxCOS(b) ,20kaxSIN(b) ya 
DRAWR SOXCOS (a) ¿SOXSIN(a) 
DRAWR SOXSIN (a) ,SOXCOS (a) 

DRAW 20%axCOS (b) ,20kaXSIN(b) 
PLOT RNDx320- RNDX320, , RNDE200—RNDK2 
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690 LOCATE 10,25:PRINT "E FM ama JJIA s ON p" | 
O Ese 128,2! rre re pa ES De coano moros 4 cmd ero anno a DS y mo 0000 E .0 
7210 PLOT 0,0,1:DRAWR 0,350: PLOT 0,0 il a / 
720 DRAWR 399 ,0:DRAWR 0,350 | | Ñ | 
730 kz 950/5501 FOR A=0 TO 500 STEP 50 | | | 
740 B=Ak Par pr 0 
750 MOVE. le ,B+25 ¿TAG:PRINT A710]:MOVE 120, ls ed INT A; «TADO E A 
60 PLOT -8,B:DRAWR 8,0:PLOT q0%» B:DRAWR 8 | 
770 NEXT A | | Ll] 
780 PEN 3:LOCATE 3,2: ERINE « qu qLOcÁTE 35,2: PEN 21PRINT “m/m 2" | 
: 790 ORIGIN 128,26 e Liviclona Edición! bla | | | 
00 FOR A=1 TO 12 | A l 
810 FOR- ss =0 TO Día, 2) 1PLOT (324) - -24, Bak, 2:DRAWR 28,O:NEXT B | 
820 NEXT A | | | | | 
830 X=24 :Y=D(1,1)*10xKk i | | | 
840 PLOT X+1,Y,1:PLOT X+2, YÍPLOT x+3, A a 2. L 
8so PLOT X+1 ¿1425 PLOT X+2,Y+2:PLOT X+3, Y+2 | | | 
860 FOR A=2 TO 12 | | | | 
870 X= (32XA)- -8:Y= DIA, 1) AKE10 | | | 
880 DRAW X,Y,3 | | | | | 
890 PLOT Xt ¿Y ,L5PLOT X+2, YAPLOT X+3,Y- + 2. ] 
900 PLOT X+1,Y+1:PLOT X+2,Y+1 +PLOT X+3, Y+1 23 | 
910 PLOT X+1 ¿ Y+Z3PLOT X+42,Y+21PLOT X+3, Y+2 1 | | 
920 NEXT A | | | 
930 LOCATE 13,1:PRINT "OTRA GRAFICA (S/N) " | | | 
940 IF INKÉY(60)=0 THEN RUN 240. pe 1 
950 1F INKEY(46)=0 THEN CALL o. | | | 
955 AS$=INKEYS | PR l | 
960 GOTO 940 | 
| | l sá lla nda vá 
| | | | | | 
¡ i l ¡ | ; 
| | | | | 
i i 


yd 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


290 


300 
310 
320 
330 
340 
350 
340 
370 
380 
390 
400 
410 
420 
430 
440 


NEXT b 

NEXT a 

LOCATE 8,13:INK 1,26:FEN 1:PRINT CHR$(22)+CHR$(1) 3 "DONUTS" 
FOR a=2 TO 15 

IF a>2 THEN INK a-1,0 

INK a,2ó6-a 

FOR z=100 TO 200 STEP 10:SOUND 1,2,1,15:NEXT z 
NEXT a 

INK- 15,0 

IF INKEY$<>"" THEN GOTO 280 

GOTO 200 

INK 1,26:MODE 2:FPEN 1 

WINDOW 1,80,23,23 

ORIGIN 320,200 

SOUND 1,200,10 

INPUT "ANCHURA DEL DIONUTS (0-320) :";AN 
INFUT "ALTURA DEL DONUTS (0-150) :"¿AL. 
INPUT "GROSOR (1-150) :"G 

INPUT “CONCENTRACION (1-200) :";C 

CL6 

DEG 

FOR M=0 TO 360 STEF C 
X=ALASIN(M) 2: Y=ANXCOS (M) 

GOSUE 430 

NEXT M 

GOTO 310 

DEG:MOVE X,Y+G:FOR A=0 TO 400 STEF 10 
DRAW GRSIN(A)+X,GXCOS(A)+Y:NEXT A:RETURN 


INSTRUMENTOS 


10 
20 
30 
240 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 


REM OXx INSTRUMENTOS xk 
REM kx k 
REM Xxx ANGEL GARCIA XX 
REM x*x Xx 
REM Xx G. T. S. xx 
REM 


INK O,O:INK 1,26: INK 2,8 

BORDER O:PAPER O:PEN 1 

MODE O 

ORIGIN 310,200 

FOR A=0 TO 2kPI STEP PI/SO 

PLOT 0,0,2:DRAW SIN(A)X(150+RNDR180) ,COS (A) * (BO+RNDX160) 
NEXT A 

PRINT CHR$ (22) ¿CHR$ (1) 

SPEED INK 30,30 

LOCATE 5,13:PEN 1:PRINT "INSTRUMENTOS" 
INK 2,8,0 
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ul 


tk 300 PEN G:PRINT "e33R ELIGE YU 


350 PEN 1:PRINT " e CUESTIONARIO” [7 ba | 
360 PRINT "o | | 2 MU 
BO PRINTO 2 LISTAR DATOS" O | E 
BO PRI T | L | | | A 
30 PRINTS, TERMINAR" i PA ETT 
4004 PRINT: ee i z : | | — 
| 410 PRINT" | | | | h Li 
420 [PEN a alada a y e : 
430 IF INKEY(64)=0 THEN GOTO 470 | d A : E a | 
! 440 IF INKEY (65)=0 rien GOTO 890 | ¡Ml Ñ 
450 IF INKEY(5S7)=0 il o | 
| 460 GOTO 430 | : | + 
470 REMAR: UESTIONARIO REKO AH IS 4 
480 MODE 1: INk 200 58 dd INK 3,8 | 
470 FOR P=1 10. 20 1. A E A 
| 5500 MODE 1: FEN 4: ye MRRIDODONE LOS INSTRUMENTOS dMRORR 
O NS INT (RIDAS) ¿O A A A 


MODE 1 Ll 
lo de atado] 


250 REM xx MENU 
260 


E 


o pe 


280 INK 2,8 
300 ORIGIN 0,0: PT 600,0, 1 :DRAWR | 
310 WINDOW 8,32,6, 

320 PRINT " "¿PRINT" * 


340 PRINT " * 


bla 


$ Ñ 2. lid 
i : i 
A > 
Ñ pod 
$ q 
| | 
E 
pool a 
AUDE 


| 
j 
eS 


R 600,0 O: puedes o 


Í 
j 


55 


2 | 


4 
«+ MARS SFOR B=1 TO 3:+FOR A=15 TO O STEP —1:INK O-AESOUN CAT ppp 
| D 1,6,1:NEXT A,B:AC=AC+1 | 
740 1F NR<oN THEN PRINT "INCORRECTO. LA. RESPUESTA ERA "¿R$z SOUND. 1,600, 100:FOR. a 
| Al TO 100:PLOT RANDX600, RNDXx400 : ¿NEXT A | Lit] | | | 
50 NEXT FP o | ml | MAMO IA ANA | 
ES Mu] MOTE O:FOR A=1 0 IS: INK A,27-A¿NEXT a TT + E ! 
0 770 PEN S: ¿PRINT a RESULTADOS 11418 i 0 | | 
. 780 PRINT" "¿PRINT" " | | i 
|...790 PEN 2:PRINT " ACIERTOS..." jac | | | ; 
TT Bio FEN 3:PRINT "o FALLOS... 0..." ¿20-AC | | | 
| 820 PRINT" "SPRINT" "GPRINT" 0 | | 
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IF N=0 THEN RESTORE 970 


5390 1F N=1 THEN RESTORE 990 
540 1F N=2 THEN RESTORE 1010 


PEN G:¿PRINT" " lito 


y 


READ R$,NN:NN=INT(RNDANN) FOR Z=0 TO NN:READ 15$: 


+ 


nl 


al p 


FRINT"PREGUNTA: “¡Fi TAB( 


580 PRINT 0 "¡PEN 2| 
390 FRINT " " 


> 
17) 5 "INSTRUMENTO: "518 


ea 


1 


710 JF INKEY (57)=0 
20 GOTO 480 


730 PEN 2PRINT " "SPRINT" « :1F NR=N THEN PRINT iia 


THEN NR=2:GOTO pa 1] 


600 FPRINT "A QUE GRUPO DE msTRUnENTOS CORRESPONDE" :PRINT_' A APRINT"] | | ELIT 
neruda ra saotadod PA AAA + H | O O 
610 PRINT" "¿PRINT" " | _ i P- . HH 
620 PEN 3¿PRINT "o '(PULSA 1,2 past | 
630 PEN 1:FPRINT " " MEMO Y] | | | 
640 PRINT" ":PRINT ” | 1. CUERDA" lily] E A | 
650 PRINT" “¿PRINT "O 2 VIENTO" | T | 
660 PRINT" ":PRINT " | 3. PERCUSION" | 
670-SQUND 14100410 + bp O O O EE | | | 
680 REM | | | | | | | 
690 1F, INKEY (64)= =0 THEN NR=0:GOTO a 11] e e 
700 IF INKEY(65)=0 THEN NR=1:GOTO 730 | | | | | 


LA RESPUESTA jes] ] 


y 
>) 


> 


pr 


> 
o 


| 
: 


> AITA, TROMPA , TROMPETA, CLARIN, TROMBON _CORNETA, FINGLE, Bo | | 
o LUGLE e BA, CUERNO, SAXOFON, ORGANO, ARMÓNICA, ACORDEON E 2 O O O O ES 1 e A A SUM! " == 


> 
> 
> 


SO SYMBOL AFTER 160 | pe 
60 Hen 160,252,132,246,251,255,254 252,250 pp | | 
70 SYMBOL 161,0,0,0, 127,127,0,0,0 du | 
e 


(100 SY 
110 MO | | O 
120 PAFER 0: BORDER Or PEN. Les “y pp ppp IN 
RO EAS pri a en ie lr srl A a djuesdl A A e UN SA JA 


ia 


GÚ—+-8940-PRINFL bl ¿PRINTO-g REN pi XA 
850 PRINTER | Hei Eire] 

860 FOR A=0 TO 100:A$=INKEYS:SDUND 1,A,1 , 1S1NEXT AL 
870 IF. ÓN 870 pl a | MM MEN 
-d80 Boto 2 pe A HH] | | 
un 890 e MODE-=2+ restore bl ro — Sd E E E A E PA PIE. DO O slds a ES dci 
900 FOR-A=1 TO Pp A | 


930 FOR B=1 TO N:READ 
0940 PRINT" “¿PRINT" "; 


10 EE a INVASION. dalldadad] A | O 


AO R REM corri A A ri” dciccoord ran as 00 Pa A A sida si PP E OS T A XA 


150 LOCATE 7 212: PRINT "INVAS ION" 


| | | | 
180 FOR A=300 TO. O STEP. AUN MAA] 


ei a 


| 
j 
! 


830. a 1: ¿PRINT" "PORCENTAJE: "SACIS5" 


F10..READ. Ay N...l retomo $ bl | MA | 
920 PRINT "- INSTRUMENTOS DE "sAs7":":PRINT" " | | 
¡RE! E PRINT. a BL ¿NEXT BI 
RINT "+" ro | 
950 NEXTA 7 | PA y | | 
960 GOTO B60 E | MEE ppp e 
970 DATA CUERDA,13 | A 
980 DATA VIOLIN "VIOLA, VILONCELO, CONTRABAJO,LAUD, GUITARRA BANDURRIA ,BANJO,ARPAJOT 
TARA ,CLAVECIN,ESPINETE, UKELELE | e 
990 DATA VIENTO, 23 | 


1000 DATA FLAUTA, FLAUTIN, OBOE , PULZAINA, TENORA ,CLARINETE, FAGOT ¡CARAMILLO, rxIsTu, G 


1010 DATA PERCUSION,14. | 

1020 DATA TRIANGULO PLATILLOS CAMPANA, GONG TAMBOR, BOMBO, TIMBAL,PANDERETA, MARACA, 
PIANO, XILOFONO ¡CLAVICO DIO CELESTE ,»MARIMBA 
1030 DATA 8,4, 15,4,7,4,7,4, 5,4,4 13,2, 810» 4 19,4, 2,4,4, ,8, ¿AZ Z, 8, 2 ,8,4,8, 5,4, EZ CI 
74 57 4,4,4,Z, UE o, 14,254, BIZ, 5d Es | | Ñ 
1040 D Ta Ara | | pp | ha | pe 


A A PRA RTS HERO VRRRRR CARAS EEC TAS DAS ERRATA POIS ENANA CERCO DINARS CARR RE RR DURAN CN ATT 


20 REM Xxxk ANGEL GARCIA DELGADO AR Xk | | i 


30 REM Ends as Js ic ll 6. T.S. ATLAS | ! | 


80 SYMBOL _162,66,36,126,153,153,126,60,231. CARNAL AMAR ADN AA 
90 ca. 163,255,241,253,245,245,253,741,255 | A 


BOL 1144/73, 146,73,196,73,146,73, dE a MON E | | 
E OzINK O,Os INE. 1,26: TN 2,23: INK pp 


i 


e oirreernigo 
140 ORIGIN. O ¿O3FOR. ¿A= o 10 600 STEP 5; :PLOT A, ENDA400, y L4INT (RNDELSO ¿NEXT a 


160 FOR A=1 To 1000 ar] 10: SOUND: la A, h, 15: NEXT A 
170 INK 1,26,0 


E 


| | | l | | 
190 SOUND 1,0,1,15:SOUND 2,A+10,1, 15:SOUND 3 »RNDX200 ¡Lis | 
200 NEXT A: : INK e 26 | | 
210 FOR A=15 TO. O STEP -1:SOUND 1,200, 100, 4,0,0,31: ¿NEXT A 
220 MODE 1:INK 0,0: INKk Es INK 2 123: ÍNK 3, 8 | : | 
2240 FOR A=0 TO 600 STEP S:PLOT A, RNDRADO , 1:NEXT A ¡ 00 
1250 PENA tio A ¡alli lt 
2260 LOCATE 13,2:PRINT oz INVASION UN [7 | Me | | 
270 PEN 3 | | .UEEN | | 
2280 LOCATE E S:PRINT "DESTRUYE do LoS INVASORES 'ANTES DE QUE SE" | 
290 LOCATE 7 PRINT "APODEREN DE TU ' BARRERA. DE ENERGIA IONICA" 
BOO FEN- 2. O 
310 LOCATE 15, 10; PRINT "CONTROLES: "9 | MM | 
320 PEN 1 | hh] 
(330 LOCATE 13, 13: PRINT" TAB. ARRIBA" | od | 
340 LOCATE 13,15:PRINT" CAPS. ABAJO" | 
¡390 LCOCÁATE 13T73PRINT"ENTER: DISPARO" CCT TT 
1360 LOCATE S,22:PEN 3:PRINT "PULSA -S- PARA COMENZAR A JUGAR" 
370 IF INKEY(60)<50 THEN 370 | | 
380 MODE 1 | | | | 
390 PEN 1 add ld dde he sl lll 
400 DIM M(10) | | | | | 
410 ORIGIN 0,240 | | pa po 
420 C=25 | 
430 FOR A=0 TO 640 STEP S:PLOT A,RNDX150,1:NEXT A E: l 
440 FOR A=0 TO 640:0= Esbrbab- —9XRND:PLOT A,0,2:DRAWR O,ABS(C)¿NEXTA- 
450 FOR A=12 TO 21:LOCATE 2,A:PEN 1:FRINT CHR$(164) | | Ll | 
460 PEN-32LOCATE 39 -A+PRINT a | | | o 
470 M(A-11)=39:NEXT A | | 
480 LOCATE 2,11:PRINT CHR$(163) | | | | 
490 LOCATE 2,22:FRINT CHR$(163) HT Md eses dns 
500 WINDOW $t1,1,40,24, 24 
510 GOSUE 650 
520 X=1 
530 B$="":¿FOR A=1 TO 16:B3= BS+CHR$ (161) ¿NEXT A 
540 LOCATE 3,X:PRINT " pa 
¡550 1F INKEY (68) =0 THEN X=X-1:1F Xx%12 THEN X=12 
560 IF INKEY(70)=0 THEN X=X+1:1F X>21 THEN X=21 
570 FEN 1:LOCATE 3,X:FRINT CHR$(160) ; 
-580 IF INKEY(18)=0 THEN GOSUB 660 
590 PEN 2:N=1+INT (RNIIK10) 
600 PEN 3 | 
610 M(N)=M(N)-2:LOCATE M(N) ,N+11 :PRINT CHR$(162) 3" " 
620 IF M(N)<2 THEN GOTO 710 | | 
630 GOTO 540 
640 END. 
650 FRINTH1,"FUNTOS:"¿F:RETURN 
660 PEN 2:PRINT B$ | 
670 FOR A=1 TO 100 STEF 10:SOUND 1,M,1,15:NEXT A 
680 IF M(X-11)<20 THEN M(X- -11)=39:SOUND 22007107130; o, 307 P=F+5 :G05UB Laso" 
690 LOCATE 4,X:PEN O:PRINT B% | 
700 RETURN | i | ho... 
710 FOR a=1 TO 100: :SOUND 2,8,1, 15,0,0 ,30:NEXT a | | | Ll 
720 MODE 0 | | | 
1730 PEN 2:INK 2,17,0: LOCATE 6,7:PRINT"GAME OVER" TITTITIrrTrTrTTTT 
740 PEN 1:LOCATE 5,13:PRINT"PUNTOS:"¿P PA | 
750 FOR A=1 TO 1000:A$= INKEYS ¿NEXT A | | o] | 
760 RUN 210 | | i l. | libra 


A A e 
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NOVEDADES 


IAN KEY-COVER 


1AM 


ASTRAL LEIA DOMMALDA AEREIAC A 


000000005053 
| UD ae 


¡AN KEY-COVER, ES EL PROTECTOR IDEAL PARA EL TECLADO DE SU AMSTRAD 6128 ESPECIALMENTE DISEÑADO 

PARA REUNIR TODAS LAS CARACTERISTICAS ADECUADAS PARA ELLO: 

— PROTECCION FIRME DEL TECLADO DEL CPC 6128 (REALIZADO CON RESISTENTE METACRILATO DE UNA SOLA 
PIEZA CON NERVIOS LATERALES PARA FIJACION EN EL REBORDE DEL CONJUNTO DE SU ORDENADOR). 

— AJUSTE PERFECTO EN SU ORDENADOR CON SUAVE PRECISION Y COBERTURA TOTAL. 

— TRANSPARENTE (CONFIRIENDOLE LA PROPIEDAD DE VISUALIZAR EN TODO MOMENTO SU TECLADO). 

— PROTECCION CONTINUA CONTRA ELEMENTOS EXTERNOS (COMO: DERRAMES DE LIQUIDOS, GOLPES, ETC.) 
ADEMAS DE GOZAR DE LA SEGURIDAD DEL BUEN FUNCIONAMIENTO DE SU ORDENADOR AL REANUDAR SU 
DIARIO QUEHACER. UN POCO DE CAFE DERRAMADO SOBRE SU TECLADO ELEVARA ENORMEMENTE EL 
PRESUPUESTO ANUAL DE SU ORDENADOR. EVITE EL RIESGO, PROTEJASE. 

— RESGUARDO PERMANENTE CONTRA EL POLVO Y LA POLUCION (EL 50 % DE LAS AVERIAS DE SU TECLADO SON 
MOTIVADOS POR EL CONTACTO CONSTANTE DE ESTE CON EL POLVO Y LAS PARTICULAS ATMOSFERICAS, EL 
EXCESO DE HUMEDAD, ETC.). ELIMINE UN RIESGO CONTINUO, DOSIFIQUELO. 

— MANTENGALO LIMPIO SU AMSTRAD 6128, CUBRIENDOLO CON IAN KEY-COVER. 

— DELE AL TECLADO DE SU AMSTRAD 6128 ESA SENSACION DE PULCRITUD, SENTIDO DEL ORDEN Y APARIENCIA 
EXTERNA QUE SU AREA DE TRABAJO, ESTUDIO O ENSEÑANZA, REQUIERE. 
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BIBLIOGRAFIA 


CPC 6128-664-464 


<> ZA-MA 


EL DOMINIO DEL AMSTRAD 
PCW 8256/8512 


“El dominio del Amstrad PCW 8256/8512” 
le sitúa en la vía rápida hacia el éxito en los 
negocios. Lo mismo si está Vd. empezan- 
do autilizar uno de estos ordenadores, co- 
mo si está considerando comprárselo, es- 
te libro le mostrará rápidamente cómo ren- 
tabilizar al máximo su inversión. 


Una gran parte del libro trata del proceso 
de texto. 


Esta parte del libro es un medio didáctico 
excelente, que le conducirá desde los usos 
más sencillos del proceso de textos, a los 
más avanzados. Una sección aparte cubre 
el uso de NewWord, la potente alternativa 
de NewStarSoftware. 
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$» cc 


DOMINE EL CODIGO MAQUI- 
NA EN SU AMSTRAD 


Ahora tiene la oportunidad de aprender a pro- 
gramar en código máquina en su ordenador 
Amstrad. Clive y Scott —dos programadores 
muy competentes, con gran experiencia en li- 
bros y software a sus espaldas — son los guías 
ideales para ayudarle a comprender las inte- 
rioridades de la programación en código má- 
quina del Amstrad. 


Debe ir trabajando en código máquina del 
Amstrad. 


Debe ir trabajando a lo largo del libro, saltán- 
dose las secciones que le presentan una es- 
pecial dificultad la primera vez que las lea. 
Cuando haya terminado su primera lectura, 
tendrá los suficientes conocimientos como pa- 
ra poder comprender aquellas secciones que 
dejó sin completar la primera vez que pasó por 
ellas. 


AMIGOS DEL 
AMSTRAD 


EDITORIAL 


Si bien, la elección de un ordenador es 
importante, más importante es todavía el saber 
estructurar las instrucciones para lograr una 
mayor eficacia. 

La utilización de un método estructurado facilita 
el desarrollo de los programas y sus posibles 
modificaciones si fueran precisas. De esta 
forma, veremos que programar no consiste en 
escribir el mayor número posible de líneas, sino 
que es mucho más interesante la calidad que la 
cantidad. 

Por esto, una sugerencia que os hacemos, es 
que intentéis variar los programas que os 
listamos e intentéis mejorarlos. 

Suerte. 


, Edita: Editorial GTS. C/. Bailén, 20. 1. Izda. 28005 MA- 
DRID. Secretaria Redacción: Margarita Rancero. Colabo- 
radores: Eugenio Garrido, J. F. Martínez, J. Bernal, R. Ca- 
rralón, J. Ramos, Juan Jesús Ortega. Dirección Artística 
y Técnica: Carlos Gorrindo. Publicidad: Bailén, 20. 1*. 


SUMARIO 


EXPLICACION DE LOS PROGRAMAS 4 
BIBLIOGRAFIA DEL AMSTRAD ..... 
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SO ES EX ES 
SN ES ES ES 
E ESA 


EXPLICACIORA 
DE LOS PROGRAHAS 


GLOBOS 


REM X ANGEL GARCIA DELGADO *X 

MODE O 

INK O,O: INK 1,26: INK 2,7: INK 3,18 
PAPER O: BORDER O 

ORIGIN 318,210 

FOR a=0 TO 2XPI STEP P1/70 

PLOT 0,0,2 

DRAW 300%CO0S(a),1S5SOXSIN(a) 

DRAWR 0,3O0XSIM(a),3 

100 NEXT a 

110 PRINT CHR$(22)+CHR$(1);5 

120 A$="GLOBO":A=11-(0O.SX(LEN(AS$))) 

130 LOCATE A,12:PRINT As; 

140 PRINT CHR$(22)+CHR$(0);5 

150 IMNK 2,7,0: INK 3,0,18 

160 FOR a=1 TO 300:SOUND 1.a.1.15:NEXT a 
170 INK 2,18,7: INK 3,7,18 

180 FOR a=300 TO 1 STEP -2:SOUND 1,a,1: SOUND 2,aXx2,1:NEXT a 
190 INK 2.7: INK 3.18 

200 FOR a=1 TO SOO:NEXT a 


YN 
000 


JD0yQocm-a 
2000000 
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12 19 lp [o /p 17 


(7 19 12 


210 FOR a=0 TO SO:PRINT CHR$(7):FOR b=1 TO SO:NEXT b:NEXT a 
220 MODE 1 

230 GOTO 280 

240 PRINT TAB(20-LEN(a$)/2):FOR a=1 TO LEN(as$) 

250 b$=MIDS(a$.a.1):PRINT b$3:1F bs$<>" " THEN PRINT CHR$(7); 

260 MEXT a 

270 PRINT:PRINT:FOR a=1 TO 200:NEXT a:RETURN 

280 REM XXX INICIO DEL PROGRAMA XXX 

290 a$="<< GLOBO >>":GOSUB 240: PRINT 

300 A$="RECOGE CON TU GLOBO A LOS HOMBRES":GOSUB 240:A$="PERO SIN PINCHARLO CON” 
:GOSUB 240:A$="LOS ALFILERES O LAS TIJERAS. ":GOSUB 2 

30 | 

310 PRINT:A$="CONTROLES: ":GOSUB 240 | | 

320 A$="0. ARRIBA":GOSUB 240:A$="A. ABAJO":GOSUB 240:A$="0. IZQUIERDA":GOSUB 240 
:A$="P. DERECHA" :GOSUB 240 | | 

330 PRINT:a$="PULSA -S- PARA EMPEZAR":GOSUB 240 


390 IF INKEY(60)<>0 THEN 3390 
350 GOSUB 660 
360 INK 0,23:PAPER O: BORDER 23:PEN 1: INK 1.0 


1] 
NJ 
a] 


MODE O: INK 2,10: INK 4.26: INK 3.6 

380 WINDOW R1.1,20,1,3:PAPER R1,4:CLS Ri 

390 WINDOW 1.20.4.25 

400 P=0:FA=0:GOSUB 630 

410 PEN 2:FOR A=1 TO 20:X=1+INT(RNDX13):Y=1+ INT (RNDX19) 
420 LOCATE Y.X:IF RND>0.S THEN PRINT"a"; ELSE PRINT"h"; 
430 SOUND 1.A.2 


440 NEXT 

450 PEN 3:FOR A=1 TO 15:X=1+INT(RNDX18):Y=1+INT(RNDX19) 
460 SOUND 2.50-A.2 

9470 LOCATE Y.X:PRINT"e"j NEXT 


480 X=10:Y=9:XB=X 1: YB=Y 


990 IF NOT INKEY(67) THEN X=X-1: IF X<1 THEN X=1 

500 1F NOT INKEY(69) THEN X=X+1: IF X>18 THEN Xx=18 

510 IF NOT INKEY(34) THEN Y=Y-1: IF Y<1 THEN Y=1 

520 TF NOT INKEY (27) THEN Y=Y+1:1F Y>18 THEN Y=18 

530 LOCATE Y.X:GOSUB S590:LOCATE Y+1,X:GOSUB 590 

540 LOCATE Y.X+1:GOSUB S9O:LOCATE Y+1.X+1:GOSUB 590 

550 PEN 1:LOCATE YB,XB:PRINT" "LOCATE YB.XB+1:PRINT" E 
S5ó0 PEN ¡:LOCATE Y.X:PRINT"ab":LOCATE Y.X+1:PRINT"cd” 

3570 XB=X:YB=Y 


580 GOTO 490 
590 CALL 30000: C=PEEK (29999) 

600 IF C=101 THEN FOR A=100 TO 200 STEP 4:SOUND 1,A.1:NEXT:P=P+15:GOSUB 630 
610 IF C=103 OR C=104 THEN SOUND 2.50.15.15.0.0.31:FA=FA+1:GOSUB 630 
620 RETURN 

630 LOCATE R1,2,2:PRINTR1, "PTOS: "3P:LOCATE R1.194.2:PRINTR1."FA: "¡FA 
640 IF FA>4 THEN 790 

650 RETURN 

660 DATA 205.96.187,50,47,117,201 

670 RESTORE 660 

680 FOR a=30000 TO 30006:READ b:POKE a,b:NEXT a 

690 SYMBOL AFTER 97 

700 SYMBOL 97.7.25.50,102,78,142,156.156 

710 SYMBOL 98.224.152.76,102,114.113.57.57 

720 SYMBOL 99,221.101.63,19,8,15,7,7 
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730 SYMBOL 100.187.166.252.200.16.240.224.224 

740 SYMBOL 101.56.56,16.254.16.40.68.130 

750 SYMBOL 102.18.0.68.16,129,40.2.72 

760 SYMBOL 103.6,6.8.16.32.69.0.0 

770 SYMBOL 1094,231.165.231.104.16.40.68.130 

780 RETURN 

790 REM XXX GAME OVER XXX 

300 FOR A=1 TQ 20:FOR B=100 TO 200 STEP A:SOUND 1.B.1.15.0.0.31:NEXT B:NEXT A 
3810 INK O.O: INK 1.26: INK 2.15.0:PAPER O: BORDER O:PEN 1:MODE O 
320 PEN 2:LOCATE 6,7:PRINT"GAME OVER" 

330 PEN 1:LOCATE 4.12:PRINT"PUNTOS: "¡USING "RR" iP 

830 PEN 3: INK 3,1S5:LOCATE 5,17:PRINT "OTRA? (S/N)" 

SO FOR A=1 TO 5SO:A$=INKEYS:NEXT A 

O PEN 1 

O IF INKEY(60)=0 THEN RUN 220 

O IF INKEY(46)=0 THEN CALL O 

O GOTO 370 


6 - AMIGOS DEL AMSTRAD - 1986 


O 


OJD or 
3 E Ao 2 E E 
E 


ZO 
30 
0 
100 
110 
120 
130 
140 
150 
160 
170 
130 
190 
200 
210 
220 
2.30 
240 
250 
260 
270 
280 
290 
300 
"Qu 
310 
0) 
320 


330 


REM %X ANGEL GARCIA DELGADO %X 
MODE O:GOSUB 790 
INK O,O: INK 1,26: INK 2,7INK 3.18 
PAPER O: BORDER O 
ORIGIN 318,210 
FOR a=0 TO 2X*xP1 STEP PI/70 
PLOT 0,0,2 1 
DRAW 300%COS (a). 15OXSIN(a) 
DRAWR 0,30X*SIN(a),3 
NEXT a 
PRINT CHR$(22)+CHR$(1); 
A$="PEMNALTI":A=11-(0O.SX(LEN(AS$))) 
LOCATE A,12:PRINT As; 
PRINT CHR$(22)+CHR$(0); 
INK 2,7?,0: INK 3,0.18 
FOR a=1 TO 300:SOUND 1.a.1.1S:MNEXT a 
INK 2,18.?7: INK 3.7.18 
FOR a=300 TO 1 STEP -2:SOUND 1.a.1:SOUND 2.aXx2.1:NEXT a 
INK 2.7: INK 3.18 
FOR a=1 TO SOO: NEXT a 
FOR a=0 TO SO:PRINT CHR$(7):FOR b=1 TO SO:NEXT b:NEXT a 
MODE 1 
GOTO 2380 
PRINT TAB(20-LEN(as$)/2):FOR a=1 TO LEN(as) 
b$=MID$(a$.2a.1):PRINT b$;:1F b$<>" ” THEN PRINT CHR$(2?);5 
NEXT a 
PRINT:PRINT:FOR a=1 TO 200:NEXT a:RETURN 
REM X%% INICIO DEL PROGRAMA XXX 
a$="<< PENALTI >>":GOSUB 2940:PRINT 
A$S="PROCURA COLAR EL BALON":GOSUB 240:A$="EN LA PORTERIA. SIN":GOSUB 240: As$= 
E EL PORTERO LA RECOJA":GOSsUB 290 
PRINT:A$="PARA LANZAR EL BALON":GOSUB 240:A$="PULSA LA TECLA SPACE":GOSUB 24 


PRINT:as="PULSA -S- PARA EMPEZAR":GOSUB 2340 
IF INKEY(60)<>0 THEN 330 
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EXA EXA ZA EZ EZ EZ EA A E E 
Era ERA EEE Ea ERA EA E E EZ 


P=0:FA=0: INK 0.18: INK 1.0: INK 2.26: INK 3.8 
PAPER O: BORDER 18 

MODE 1: GOSUB 230 

WINDOW R1.1.390.24.29:GO0SUB 2700 

WINDOW R2.1.30.21.21 

A$="PULSA SPACE PARA DISPARAR": GOSUB 680 
x=17:v=20 

vP=16+ INT(RNIDX9):D=1: DP=-1 

LOCATE YP.S:PRINT"a":LOCATE YP.ó6:PRINT"b" 
LOCATE Y.X:IPRINT" ": 

Y=Y+D: IF Y>35 THEN D=-1 

1IF Y<S THEN D=1 

LOCATE Y.X:PRINT"C":CALL R£BD19 


IF NOT INKEY(47) THEN 490 


GOTO 430 
FOR A=100 TO 200 STEP 6:SOUND 1.A.1:NEXT 
LOCATE YP.S:PRINT" ":LOCATE YP.ó6:PRINT" " 


YP=YP+DP: IF YP>24 THEN DP=-1 

IF YP<16 THEN DP=1 

LOCATE YP.S:PRINT"a":LOCATE YP.6:PRINT"b" 

LOCATE Y.X:PRINT" ":xX=X-1:1F X<4 THEN 580 

LOCATE Y.X:PRINT CHR$(102-X/7)5 

IF X=S OR X=6 THEN IF Y=YP THEN 630 

GOTO 500 

GOSUB 730: 1F Y<15 OR Y>26 THEN 650 

ENT 1.20.-3,1:SOUND 1.100.15.15,0.1 

P=P+15:GOSUB 700 

A$="GODOOL............." ¡FOR N=1 TO 4:GOSUB 680: NEXT 

GOTO 360 

GOSUB 730:SOUND 2,100,5,15,0,0,31:A$="PARADA DEL PORTERO":GOSUB 680 
GOTO 6460 

SCUND 4,300:A$="LA PELOTA HA SALIDO FUERA":GOSUB 680 

FOR A=1 TO 100:NEXT:FA=FA+1:GOSUB 700 

FOR A=1 TO 600:NEXT:GOTO 360 

CLS R2:PRINTRZ, TAB(Z20-LEN (A$)/2); 

FOR A=1 TO LEN (A$):PRINT R2,MID$(A$,A,1)5;CHR$(7); : NEXT: RETURN 
LOCATE R1.S.1:PRINTR1. "PUNTOS: "¡P:LOCATE R1.26.1:PRINTRi. "FALLOS: "5FA 
IF FA>4 THEN 860 

RETURN 

PLOT 0.250.2:DRAW 100,300: DRAW 530,300: DRAW 630.250 

PLOT 150.300: DRAW 0.100: DRAW 630.100: DRAW 480.300 

PLOT 180.300:DRAW 80,150: DRAW 550,150: DRAW 450.300 

PLOT 214,302.3:DRAW 214.380: DRAW 630-214.380:DRAW 630-214.302 


PLOT 210.302:DRAW 210.389: DRAW 630-210,384:DRAW 630-210.302 
RETURN 


SYMBOL AFTER 97 

SYMBOL 97.60.126.90.126.60,24,126.255 
SYMBOL 98.189.189.189.60,36,36,102,231 
SYMBOL 99.60.126.255.255.255.255.126.60 
SYMBOL 100.0.60.126.126.126,126,60,0 
SYMBOL 101.0.0.24.60.60.24,0.0 

RETURN 

REM XXX GAME OVER XXX 


FOR A=1 TO 20:FOR B=100 TO 200 STEP A:SOUND 1.B.1.15.0.0.31:NEXT B:NEXT A 


INK O.O: INK 1.26: INK 2.15.0O:PAPER O:BURDER O:PEN 1:MODE O 


8 - AMIGOS DEL AMSTRAD - 1986 


[2 le 1D 12 18 to 12 fo le 12 12 12 12 (2 /2 


fo 


f: 


E) 


E) 


JIJI 


390 
900 
910 
920 
230 
940 
950 
960 


PEN 2:LOCATE 6.7?:PRINT"GAME OVER” 
PEN 1:LOCATE 4.12:PRINT"PUNTOS: "¡USING 
"QTRA? 


PEN 3:INK 3.15:LOCATE 5.17: PRINT 
FOR A=1 TO 50: A$=INKEYS: NEXT A 
PEN 1 

IF INKEY(60)=0 THEN RUN 220 

IF INKEY(96)=0 THEN CALL O 

GOTO 940 


1 Pe Pa Pe PePePe" 3 P 
(S/N)" 
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o A, 
2 DAA 


PUZZLE 


Y BN bd Nr 
000005 


o 
2000 


100 
110 
120 
30 
140 
130 
160 
1:20 
130 
190 
200 
210 
220 
230 
290 
250 
260 
270 
s0 
290 
300 
A F 
”:6 
310 
249 


10 - 


REM %* ANGEL GARCIA DELGADO x* 
MODE O 
INK O,O: INK 1.26: INK 2,7: INK 3,18 
PAPER O: BORDER O 
ORIGIN 318.210 
FOR a=0 TO 2XxPI STEP PI/70 
PHOT-0, 072 
DRAW 300%C0S (a). 15OXSIN(a) 
DRAWR 0.30*SIN(a),3 
NEXT a 
PRINT CHR$(22)+CHR$(1); 
A$="PALABRAS":A=11-(0O.SX(LEN(AS$))) 
LOCATE A.12:PRINT As; 
PRINT CHR$(22)+CHR$(0) 5 
INK 2.7.0: INK 3,0,18 
FOR a=1 TO 300:SOUND 1.a.1,15:NEXT a 
IMK-2,18,71 INK-3,7,18 
FOR a=300 TO 1 STEP -2:SOUND 1,a,1:SOUND 2.aX2.1:NEXT a 
INK 2.7: INK 3.18 
FOR a=1 TO SOO:NEXT a 


FOR a=0 TO SO:PRINT CHRS$S(7):FOR b=1 TO SO: NEXT b:NEXT a 
MODE 1 

GOTO 230 

PRINT TAB(20-LEN(a$)/2):FOR a=1 TO LEN(as) 
b$=MID$(a$.a.1):PRINT bSi: IF b$<>"” " THEN PRINT CHRS(7?);5 
NEXT a 


PRINT:PRINT:FOR a=1 TO 200:NEXT a:RETURN 

REM XXX INICIO DEL PROGRAMA XXX 

a$="<< PALABRAS >>":GOSUB 2490:PRINT 

A$="REUME LAS LETRAS DE LA PANTALLA” :GOSUB 2340:A$="EN EL ORDEN CORRECTO. PAR 
ORMAR":GOSUB 290:A$="LA PALABRA QUE SE TE MUESTRA 
OSUB 240 

PRINT:A$="CONTROLES: ":GOSUB 240:A$="Q. ARRIBA":GOSUB 240:A$="A. ABAJO”: GOSUB 
O0:A$="0. IZQUIERDA” :GOSUB 240:A$="P. DERECHA":GOS 
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a. 


UB 240 


320 PRINT:as="PULSA -S- PARA EMPEZAR": GOSUB 240 
330 IF INKEY(60)<>0 THEN 330 

340 GOSUB 600 

350 INK O.O:PAPER O:BORDER O:MODE 1 

360 INK 1.26: INK 2.8 

370 RESTORE S90:FOR A=1 TO 1+INT(RNDX149):READ TS:NEXT 

3580 PEN 2:LOCATE 1,.8:A$="LA PALABRA ES: ":PEN 1:GOSUB 240: A$=T5$:GOSUB 240 

390 FOR A=1 TO 2000:NEXT 

400 PEN 2:FOR A=1 TO 2S:PRINT STRING$(90."a");:MEXT 

410 WINDOW R1.2.39.2.9: WINDOW R:2.3.38.3.3: WINDOW 2.39.6.24:CLS R1:CLS:CLS AZ 

420 PEN 1:FOR A=1 TO LEN (T+*) 

930 Y=1+INT(RNDX38):X=1+INT(RNDX18):1F X=10 AND Y=19 THEN 430 

940 LOCATE Y.X:CALL 30000: IF PEEK(29999)=32 THEN PRINT MIDS(T$.A.1)i ELSE 430 
450 MEXT 

460 X=10:Y=10:XB=X:YB=Y 

470 IF MOT INMKEY(67) THEN X=X-1:1F Xx<1 THEN X=1 

480 IF NOT INKEY(69) THEN X=X+1:1F X>19 THEN X=19 

490 IF NOT INMKEY(34) THEN Y=Y-1:1F Y<1 THEN Y=1 

500 IF NOT INKEY(27) THEN Y=Y+1:1F Y>38 THEN Y=38 

510 LOCATE Y.X:CALL 30000: C=PEEK (29999) 

520 IF C>6%4 AND C<91 THEN R$=R$+CHR$(C):P=P+S:PRINTRZ.R$:FOR A=100 TO 200 STEP 4 
¿SOUND 1.A.1:NEXT:IF LEN(R$)=LEN(TS$S) THEN 560 

530 IF C=99 THEN IF X<>xXB OR Y<>YB THEN GOTO 710 

540 LOCATE YB.XB:PRINT "c"i:LOCATE Y.X:PRINT"b"i:vb=y:XB=X 

550 GOTO 470 

560 CLS:LOCATE 1.5:1F T$=R$ THEN PRINT " CORRECTO !''!":PRINT:PRINT" BONO DE 5000 
PUNTOS":FOR A=1 TO 3400:SOUND 1.AM.1.15:NEXT:P=P+5000 

570 IF TS<>R$ THEN PRINT" INCORRECTO....":PRINT:PRINT" LA PALABRA ES: ":T5 

530 GOTO 710 

390 DATA AMSTRAD. ESTERNOCLEIDOMASTOIDEO. CORAZON. UNIDAD. PORTAVIONES. PENICILINA.CU 


CHARADA . CARACOL, SALAMANDRA. HIBRIDACION . ORBITAL. CELUL 
A. IMPRESORA. MICROORDENADOR 


£00 


DATA 205.96,187.50.47.117.201 
RESTORE 600 

FOR a=30000 TO 30006:READ b:POKE a.b:NEXT a 

SYMBOL AFTER 97? 

SYMBOL 97,0,239.239.239.0.2594.254.254 

SYMBOL 98.60,126.153,189.255.195,102.60 

SYMBOL 99,0,0.36.0.0.36.0.0 

RETURM 

SYMBOL 97.0.239,239.239.0.254.254.254 

SYMBOL 93.60.126.153.189.255.195.102.60 

SYMBOL 99.0,0.36.0.0.36.0.0 

REM A%% GAME OVER XXX 

FOR A=1 TO 20:FOR B=100 TO 200 STEP A:SOUND 1.B.1.15.0.0.31:NEXT B:NEXT A 
INK _O,O: INK 1.26: INK 2,15.0:PAPER O: BORDER O:PEN 1:MODE O 

PEN 2:LOCATE 6.7:PRINT"GAME OVER" 


PEN 1:LOCATE 9.12: PRINT"PUNTOS: "¡USING "RRRARRR":3P 
PEN 3:INK 3.1S5:LOCATE S.17:PRINT "OTRA? (S/N)" 
FOR A=1 TO 50: A$=INKEYS: NEXT A 

PEN 1 


IF INKEY(60)=0 THEN RUN 220 
IF INKEY(96)=0 THEN CALL O 
GOTa 290 
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REM X ANGEL GARCIA DELGADO % 

MODE O 

INK-Q+ O INK-1 267 INK-2,77 INK 3,18 

PAPER O: BORDER O 

ORIGIN 318.210 

FOR a=0 TO 2*PI STEP PI/70 

70 PLOT 0.0.2 

30 DRAW 300%C0S (a). 15OX*SIN(a) 

90 DRAWR O.3OXSIN(a).3 

100 NEXT a 

110 PRINT CHR$(22)+CHR$(1):; 

120 A$="PIRAMIDE":A=11-(O.S%*(LEN(A$))) 

130 LOCATE A.12:PRINT A%; 

140 PRINT CHR$(22)+CHR$(0); 

150 INK 2.7.0: INK 3,0.183 

160 FOR a=1 TO 300:SOUND 1.a.1,1S:NEXT a 

170 INK 2.18.7: INK 3.7.18 

180 FOR a=300 TO 1 STEP -2:SOUND 1,a.1:SOUND 2.aXx2.1:NEXT a 
190 INK 2.2: INK 3.18 

200 FOR a=1 TO SOO:NEXT a 

210 FOR a=0 TO 5SO:PRIMT'CHR$(7):FOR b=1 TO SO:NEXT b:NEXT a 

220 MODE 1 

230 GOTO 280 

240 PRINT TAB(20-LEN(as$)/2):FOR a=1 TO LEN(as) 

250 b$=MID$(a$.a.1):PRINT bs$::1F b$<>" " THEN PRINT CHRSs(7) 5 
260 NEXT a 

270 PRINT:PRINT:FOR a=1 TO 200:NEXT a:RETURN 

280 REM %%%X INICIO DEL PROGRAMA XX*% 

290 a$="<< PIRAMIDE >>":GOSUB 240:PRINT 

300 A$="ALCANZA LA CIMA DE LA PIRAMIDE":GOSUB 240:A$="RECOGIENDO LOS TESOROS. PE 

RO. .SIN":GOSUB 240: A$="CHOCAR CONTRA EL FANTASMA": G0sS 

UB 240 

310 PRINT:A$="CONTROLES: ":GOSUB 240:A$="Q. ARRIBA":GOSUB 240:A$="A. ABAJO": GOSUB 
240:A$="0. IZQUIERDA":GOSUB 240:A$="P. DERECHA":GOS 


0) 


"MBA 
000 


o 
a) 
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W¡D/0/D/0/3/0/879,%-078 7-98 70-93-09: 0-0-8-9-8-9-3:0/90/0;0/0/18 


UB 240 

320 PRINT;:¡as$="PULSA -S- PARA EMPEZAR”:GOSUB 240 

330 IF IMKEY(60)<>0 THEM 330 

340 GOSUB 270 

350 PAPER O: BORDER O: INK O.O:MODE 1 

360 INK 1.26: INK 2.15: INK 3.18 

370 WINDOW R1.2.39.1.1: WINDOW 1.40.494.25 

380 P=0:V=3:GOSUB 230 

390 PEN 2:GOSUB 760 

400 x=19:v=20:XB=X! YB=Y 

410 XM=7:YM=201 BX=XM:! BY=YM 

420 IF NOT. INKEY(67) THEN X=X-1 

930 IF NOT INKEY(69) THEN X=X+1 

440 IF NOT. INKEY(349) THEN Y=Y-1 

4950 IF NOT INKEY(27?) THEN Y=Y+1 

460 LOCATE Y.X:CALL 30000: C=PEEK (29999) 

970 IF C=97 THEN X=XB: Y=YB 

480 IF C=93 THEN 1070 

490 IF C=101 OR C=100 THEN P=P+75:GOSUB 230 

500 PEN 1:LOCATE YB.XB:PRINT" "3:LOCATE Y.X:PRINT CHR$(248+RNDX3): 
S10 xb=x1vb=y 

520 IF xm<vx THEN xm=xm+1 

530 IF xm>x THEN xm=xm-1 

540 LOCATE ym.xm:CALL 30000: C=PEEK (29999) 

550 IF C<>32 THEN XM=BX 

S5ó0 IF ym<vy THEN ym=ym+0.5 

570 IF ym>vy THEN ym=ym-0.5 

580 LOCATE YM.XM:CALL 30000: C=PEEK (29999) 

590 IF C>247 THEN 1070 

600 IF C=98 THEN BY=YM 

610 IF C<>32 THEN YM=BY 

ó20 PEN 3:LOCATE BY.BX:PRINT" "¡¿:LOCATE YM.xXM:PRINT"b":; 
630 BX=XM:BY=YM 

690 IF x=5 THEN 660 

6530 GOTO 420 

660 ENT 1.10.-2.1:FOR A=1 TO 100:SOUND 1.A.10.15.0.1:NEXT 
670 MODE 1:LOCATE 1.S:A$="LO CONSEGUISTE !'!''":GOSUB 2340 
630 A$="ALCANZASTE LA CIMA DE LA PIRAMIDE”: GOSUB 240 
£720 PRINT:A$="BOMO DE 5000 PUNTOS” :GOSUB 240 

700 P=P+5000: SOUND 2.50.5.15.0.0.31:GOSUB 730 

710 GOTO 1070 

220. GOTO. 7220 

730 LOQOCATE R1.19.1:PRINTRi. "PUNTOS: "¡P 


240 IF V<¿1 THEN 1070 
750 RETURN 


760 PRINT" aa "4 
770 PRINT" a aaa "a, 
280 PRINT" aaa aa aa 3 
290 PRINT" a aaa aa aa a "a 
3800 PRINT" a aaa aa aa ada A : 
3810 PRINT*"a aaaa áadaaa adaa a asa as 
220-PRINT" aaaaas aa £aa a aaa "; 
330 PRINT" aaaaaa aaaa aaaaaaaaaa a aaa”; 
3890 PRINT" aádaa aa d aa a aaa"; 
850 PRINT" aaa aaaaaaaaaas aaaaa a aa” 
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360 PRINT"aaaaaagaa aa d aa a a”; 


CO PRINT" aáaaa 2aaaaaaaaaaaaaaa aaaaaaa”i¡ 
3220 PRINT" a a aa e aa "3 
590 PRINT" aaaaaaaaaaa aaaaaaaaaga a "3 
900 PRINT"a a aa eaa a”; 
210 PRINT" aaaaa aáaaaaaaaaaaaaaaaa aáaaaaa a "4 
020 PRINT" aa d aa a”i 
O «PRINTP" aaaaaaaaaaaa aaaaaaaaacaa "a 
240. .FRINT". aa e diaa-":5 

; 


250 PRINT"aaadaaaaaaaaaaaaaaaacaanaadanaaa” 
260 FETURN 

970 DATA 205.9%6,1387,50.97.117.201 

230 RESTORE 270 

990 FOR a=30000 TO 30006:READ b:POKE a.bD:iNEXT a 
1000 SYMBOL AFTER 292? 

1010 SYMBOL 97,124,190.254.190.2139.17494.84.0 
1020 SYMBOL 98.124.146.218.254,254.170.170.0 
1030. SYMBOL 29,8.161.9.160.9.64.17.68 

1030 SYMBOL 100.,-8.+-20:,-20--2 31271228 

1050 SYMBOL 101.0.0.62.396.396.20.3.62 

1060 RETURN 

1070 REM XXX GAME OVER XXX 

1030 FOR A=1 TO 20:FOR B=100 TO 200 STEP A: SQUND 1.B.1.15.0.0.31:NEXT B:NEXT A 
1090 INK O.O: INK 1.26: INK 2.15.0:PAPER O:BORDER O: PEN 1:MODE O 

1100 PEN 2:LOCATE 6.?:PRINT"GAME OVER" 

1110 PEN 1:LOCATE 4.12: PRINT"PUNTOS: "¡USING "RRRARRR":3P 

11. 20-PEN.--35-INK-35157LOCATE S.17:PRINT "OTRA? (S/N)” 

1130 FOR A=1 TO SO: AS=INKEYS$: NEXT A 

1130 PEN 1 

1150 IF INKEY(60)=0 THEN RUN 220 

1150 IF INKEY(946)=0 THEN CALL O 

1170 GOTO 1150 
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30 


OS 


ns 


EA EE E E E E E E 
Ea EXA EEE EE E E EA EA E E 


POLICIA 


10 REM %X ANGEL GARCIA DELGADO *X 

20 MODE O 

30 INK O.O:INK 1.26: INK 2.7: INK 3.18 
40 PAPER O: BORDER O 

50 ORIGIN 318.210 

60 FOR a=0 TO 2*xP1I STEP PI/7?0 

70 PLOT 0.0.2 

30 DRAW 300%C0S(a).15OXSIN(a) 

90 DRAWR O.3OXSIN(a).3 

100 NEXT a 

110 PRINT CHR$(22)+CHR$(1); 

120 As="POLICE":A=11-(0.5X(LEN(A$))) 
130 LOCATE A.12:PRINT As; 

140 PRINT CHR$(22)+CHR$(0); 

150 INK 2.7.0: INK 3.0.18 

160 FOR a=1 TO 300:SOUND 1.a.1.15:NEXT a 


170 INK 2.18.7: INK 3.7.18 

120 FOR a=300 TO 1 STEP -2:SOUND 1,a,1:SOUND 2.aXx2.1:NEXT a 
190 INK 2.7: INK 3,18 

200 FOR a=1 TO S5OO:NEXT a 

210 FOR a=0 TO SO:PRINT CHR$(7):FOR b=1 TO SO:NEXT b:NEXT a 


220 MODE 1 
230 GOTO 280 
240 PRINT TAB(20-LEN(a$)/2):FOR a=1 TO LEN(as$) 
250 b$=MID$(a$.a.1):PRINT b$i: IF b$<>” " THEN PRINT CHR$1(7)5 
260 NEXT a 
270 PRINT:PRINT:FOR a=1 TO 200:NEXT a: RETURN 
280 REM XXX INICIO DEL PROGRAMA XXX 
290 a$="<% POLICIA >>": GOSUB 240: PRINT 
300 A$="EL POLICIA DEBE CAPTURAR AL LADRON":GOSUB 240:A$="ANTES DE AGOTARSE EL T 
IEMPO”:GOSURB 240 
310 PRINT:A$="CONTROLES: ":GOSUB 240:A$="JUG. IZQUIERDO JUG. DERECHO": GOSUB 2 
90: A$="LADRON POLICIA":GOSUB 240:A$="Q.A.Xx.C. 
CURSORES” :GOSUB 240 
320 PRINT:as="PULSA -S- PARA EMPEZAR”: GOSUB 2340 


1986 - AMIGOS DEL AMSTRAD - 15 


IF INKEY(60)<>0 THEN 330 
GOSUB 200 
PAPER O: INK 0,22: 
h WINDOW R1.2.39,2 
[370 |INK [1,O: INK_2,6: 
(3380 PEN 2:GOSUB 69 
(390 T=250:GO0SUB 67? 
3400 XP=2:YP=2:XL=19:YL=19 
410 PX=XP:PY=YPILY=YL:LX=XL 
LOTE NOT INKEY(0) THEN XP=XP-=1 
:430 IF NOT INKEY(2) THEN XP=XP+1 
4340 IF NOT INKEY(1) THEN YP=YP+1 i 
450 1F NOT INKEY (8) THEN YP=YP-1 ¿ 

460 LOCATE YP.XF:CALL 30000: C=PEEK (29999) 

470 IF C=97 THEN XP=PX: YP=PY 

430 IF Q=99 THEN GOTO 420 | 

990 PEN 1:LOCATE PY.PX:PRINT" "::LOCATE YP.XP:PRINT"b"; 
500 PX=XP:PY=YP 

¿510 IF NOT INKEY(67) THEN XL=XxL-1 

520 IF NOT INKEY(69) THEM XL=XL+1 

¡530 IF NOT INKEY(62) THEN YL=YL+1 

'590 IF NOT INKEY(63) THEN YL=YL-1 

550 LOCATE YL.XL:CALL 30000:C=PEEK(29999) 

¡560 1F C=97? THEM XL=LX:YL=LY 

570 IF C=?8 THEN GOTO 620 


580 PEN. 3:LOCATE LY.LX:PRINT" "¡:LOCATE YL.XL:PRINT"c"; 
590 LX=XL:LY=YL 

600 T=T-1:GOSUB 670 | 

610 GOTO 420 | 

620 FOR A=100 TO 200: SOUND 1. A. 2: NEXT 

630 MODE 1 

6490 A$="EL POLICIA HA CAPTURADO": GOSUB 240:A$="AL LADRON”: GOSUB : 
650 PRINT: A$="GANA EL POLICIA”: GOSUB 240: GOTO 1010 
660 GOTO 660 | | 


| 
670 LOCATE Ri. 14)..1': PRINTRA, "TIEMPO: Dd "pee" TE IF -T<1-THEN 
630 RETURN ¡E | 


+ ; - , + > - $ i ¿ + 


BORDER 22:MODE-4 
: Z: WINDOW 2.39.5,249 
INK 3.8.0 E ] 


6790 prrncraalamabahapranababanabababahababapobanats 

700 PRINT"a a ¡ a"; l 

710 PRINT"a añaaaadanacnacnacacmacanmas aaaadaaaadsa a”; i 

720 PRINT"a a | aa a aa' MN | 
230 PRINT"a a aadadasa anaaadadanaa aasa a alma 

740 PRINT"a a a l a a a aaaaaca 

750 PRINT"a aasa aasa | | aa ari 

760 PRINT"a- a aasaasaa ama aa an aaa aasa a a a'i ¡ 

2720 PRINT"a A O TP 4. - mn aaa”; q 
730 PRINT"a a a aaaaadacsaa aaaaamaaaaaaa aaa a a”: i 

790 PRINT"a aa a : ca | a a a a”: 

2800 PRINT"a a a a aaaaagaa asaaa aaasa aa aa a"; i 

810 PRINT"a a a a | a aa aaaaaa'i m : 
8220 PRINT"a “aassaa dsaadaasalaaaaaaaaa's | 

230 PRINT"a aa. aaaaa lada aa aaa 

240 PRINT"a a aaaaa aaaaaa ananana a mama aaaca i 
¿'850.PRINT"a a i para a ars y 

260 PRINT"a asasasasaaaacsacacaaansasasaJdaa asa a"; o 
370 PRINT"a | | | La a"i 


j H t 


| | | po pj 
| | 


A 
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PONPROAPRRRIPPPRRRRRRRRPRIRRPRAPA 


880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
920 
990 
CIA" 
1000 
1010 


1020 


1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


PRINT" aaaaaansaaaaadananaaacacdaca"; 


RETURN 


DATA 205.96.187.50.47.117.201 
RESTORE 900 
FOR a=30000 TO 30006:READ b:POKE a.b:NEXT a 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
RETURN 


MODE 1: 


: GOSUB 


AFTER 97 
97,0.127,127.127.0.247.247.2497 
98.156.190.157.73.62.23.20.54 
99.28.28.8.62.93.221.212.54 
100:74,0.34+-136,33+136,1.36 


LOCATE 1.5:A$="EL LADRON HA LOGRADO ESCAPARSE” :GOSUB 23940:A$="DEL POLI 


290: PRIMT:A$="GANA EL LADRON”: GOSUB 240 


GOTO 1010 
REM XXX GAME OVER XXX 


PEN 2: 
PEN 1: 
PEM+.3: 
FOR A= 


PEN 1 


O: INK 1.26: INK 2.15.0:PAPER O: BORDER O: PEN 
LOCATE 6.7:PRINT"GAME OVER" 

LOCATE 4.1Z2:PRINT"TIEMPO: "¡USING "PePePePePePe" 5 T 
INK 3.15:LOCATE 5S.17:PRINT. "OTRA? (S/N)" 

1 TO SO: AS$=INKEYS:NEXT A 


IF INKEY(60)=0 THEN RUN 220 
IF INKEY(96)=0 THEN CALL O 
GOTO 1090 


| 
1 
| 


FOR A=1 TO 20:FOR B=100 TO 200 STEP A:SOUND 1.B.1.15.0.0.31:NEXT B:NEXT A 
INK O, 


1:MODE O 


1986 
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=3 ESO 33 ES 


2 
E -(9)))2 
> 2 
SANA: AS ÍR y 


A 


ELE E 


CANIBAL 


10 REM XAXXXXXAX CANNIBAL AXKXHXKXXXA 

20 REM %*X ANGEL GARCIA DELGADO X 

30 REM AXKXXXAXAX G.T.S. AXXAXAXXXAX 

40 REM 

50 MODE O 

60. INK- 0,O: INK 1.26: IMK 2.7: INK 3.18 
20 -PAPER- O: BORDER O 

30..ORIGIN.. 318,210 


O FOR a=0 TO 2%P1 STEP PI/7?0 

00 PLOT 0.0.2 

10 DRAW 300*COS(a).1S5OXSIN(a) 

20 DPAWR 0.3OXSIN(a).3 

30 MEXT a 

140 PRINT CHR$(22)+CHR$(1):; 

150 A$="CANIBAL":A=11-(0.SX(LEN(A$))) 
160 LOCATE A.12:PRINT As; 

170 PRINT CHR$(22)+CHR$(0); 

180 IMK 2.7.0: INK 3.0.18 

190 FOR a=1 TO 300:SOUND 1.a.1.1S5:NEXT a 
200 INK 2,18.7:INK 3.7.18 

210 FOR a=300 TQ 1 STEP -2:SOUND 1.a.1:SOUND 2.aXx2.1:NEXT a 


220 INK 2.7: INK 3.182 

230 FOR a=1 TO SOO:NEXT a 

240 FOR a=0 TO SO:PRINT CHR$(7):FOR b=1 TO SO:NEXT b:NEXT a 
2530 MODE 1 

260 GOTO 310 

270 PRINT TAB(20-LEN(as$)/2):FOR a=1 TO LEN(as$) 

280 b$=MID$(a$.a.1):PRINT b$;:1F bs$<>” " THEN PRINT CHRS$(7)5 
290 MEXT a 

300 PRINT:PRINT:FOR a=1 TO 200:NEXT a:RETURN 

310 REM XXX INICIO DEL PROGRAMA XXX 

320 a$="<< CANIBAL >>":GOSUB 270:PRINT 

330 A$="MATA COM TUS FLECHAS A”:GOSUB 270 


A$="LOS CANIBALES QUE SE INTRODUZCAN”:GOSUB 270: A$="EN TU CAMPAMENTO. ": GOSUB 
70: PRINT:A$="CONTROLES: ":GOSUB 270: A$="CURSOR ARRI 


N - 
a] 
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fa 


[9 lo 1D 19 [9 fo 19 14 


f. 


BA":GOSUB 270:A$="CURSOR ABAJO":GOSUB 270:A$="SPACE. DISPARA FLECHA”: GOSUB 270 
350 PRINT:as$="PULSA -S- PARA EMPEZAR":GOSUB 270 

360 IF INKEY(60)<>0 THEN 360 

370 GOSUB 650 

380 BORDER 26: INK 0.26: INK 1,0: INK 2,9 

390 PAPER O:MODE O:PEN 2 

400 FOR A=1 TO 25:PRINT STRING$(20,"e")3:NEXT 

410 WINDOW R1.2.19.2.4: WINDOW 2.19.6.24:CLS Ri:CLS 

420 D=1:X=10:Y=1:P=0:FA=0 

430 GOSUB 620 

490 XC=1:YC=5+INT(RNDX13) 

450 PEN 1 

460 ON D GOSUB 500.550 

470 LOCATE YC.XC:PRINT" ":XC=XC+1:1F XC>17 THEN GOSUB 610 

480 LOCATE YC.XC:PRINT"a":LOCATE YC.XC+1:PRINT"b" 

490 GOTO 460 

500 IF NOT INKEY(O0) THEN X=X-1:1F X<2 THEN x=2 

510 IF NOT INKEY(2) THEN X=X+1:1F X>18 THEN X=18 

520 LOCATE Y.X-1:PRINT" ":LOCATE Y,X+1:PRINT" ":LOCATE Y.X:PRINT"c" 

530 IF NOT INKEY(47) THEN D=2:SOUND 1.100.10.15.0.0.31 

540 RETURN 

550 LOCATE Y.X:PRINT" ":Y=Y+1:1F Y>17 THEN D=1:FA=FA+1:GOSUB 620: Y=1:RETURN 
560 LOCATE Y.X:PRINT"c":1F Y=YC THEN IF X=XC OR X=xXC+1 THEN GOSUB 580 

570 RETURN 

580 SOUND 2.600.20.15.0.0.10:LOCATE YC,XC:PRINT"d":LOCATE YC.XC+1:PRINT"d" 
590 P=P+5:GOSUB 620 

600 D=1:Y=1 

610 LOCATE YC.XC:PRINT" ":LOCATE YC,XC+1:PRINT" ":xC=1:YC=S+INT(RNDX13):RETURN 
620 LOCATE R1.2.2:PRINTRi."PTOS:"¡P:LOCATE R1.13.2:PRINTR1I."FA: "¡FA 

630 IF FA>? THEN 720 

640 RETURN 

650 REM SYMBOL AFTER 9? 

655 SYMBOL AFTER 32 

660 SYMBOL 97.99.62.107.156.170,190,162,156 

670 SYMBOL 93.190.221.149.157.148.148.54.119 

680 SYMBOL 99.0.0.0.198.127.198,0,0 

690 SYMBOL 100.137.32.10.1283.17.68,0,1346 

700 SYMBOL 101.111.247.232.27.189,219,196,30 

710 RETURM 

720 REM XXX GAME OVER XXX 

730 FOR A=1 TO 20:FOR B=100 TO 200 STEP A:SOUND 1.B.1.15.0.0.31:NEXT B:NEXT A 


740 INK O.O: INK 1.26: INK 2.15.0:PAPER O:BORDER O:PEN 1:MODE O 
750 PEN 2:LOCATE 6.7:PRINT"GAME OVER" 

760 PEN 1:LOCATE 4.12: PRINT"PUNTOS: "¡USING "RRPPerer"sP 

270 PEN 3:INK 3.15:LOCATE S.17:PRINT "OTRA? (S/N)" 


780 FOR A=1 TO 50: A$S=INKEYS: NEXT A 
790 PEN 1 

300 IF INKEY(60)=0 THEN RUN 250 
310 IF INKEY(946)=0 THEN CALL O 

3820 GOTO 800 
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Y EX E EE 
E E ES 


j 


| H j 4 
10 REM % ANGEL GARCIA DELGADO * | 
20 MODE O 
30 INK O.O: INK 1.26: INK 2.7: INK 3,18 
40 PAPER O: BORDER O 
50 ORIGIN 318.210 
60 FOR a=0 TO 2*PI STEP PI/70 
70 PLOT 0.0.2 | 
380 DRAW 300*C0S(a).15OX*SIN(a) | 
90 DRAWR 0.3OXSIN(a).3 ll | | | | 
(100 NEXT a | 
110 PRINT CHR$(22)+CHR$(1): 
120 A$="EXPULSDOR":A=11-(O.SX(LEN(A$))) 
130 LOCATE A.12:PRINT As; 
1940 PRINT CHR$(22)+CHR$(0); 
150 INK 2,7.0:INK 3.,0.18 | | t 
160 FOR a=1 TO 300:SQUND 1.a.1.15:MEXT a | | 
170 INK 2,18.7: INK 3.7.18. pl 
120 FOR =300 TO 1 STEP. -2: SOUND 1,a,1:SOUND 2,aXx2.1:NEXT a | | | / 
190 INK 2.7: INK 3.18 | | | | 
200 FOR a=1 TO SOO:NEXT a | | 
210 FOR a=0 TO SO:PRINT CHR$(7):FOR b=1 TO SO:NEXT b:NEXT a | | 
220 MODE 1 | | | 
230 GOTO 280 | e : 
240 PRINT TAB(20- LEN(a$)/2):FOR a=1 TO LEN(as) 
250 b$=MID$(a$.a,1):PRINT b$i:1F bs$<>" " THEN PRINT CHR$(7)5 
260 NEXT a 
270 PRINT:PRINT:FOR a= 1 TO 200:NEXT a: RETURN E ! 
¿280 REM *%* INICIO DEL PROGRAMA XXx | | o] | | 
290 ab="<¿ EXPULSOR >>":GOSUB 240: PRINT | | 
300 A$="RECOGE LAS BOLAS QUE. SON": GOSUB 240: A$="EXPULSADAS POR AMBOS LADOS”: GOsu 
B 240:A$="CON LAS PALETAS DE QUE DISPONES":GOSUB 240 | : | 
310 PRINT:A$="CONTROLES: ":GOSUB 2940:A$="Q. ARRIBA PALA IZQUIERDA": GOSUB- 290: AR=" 
A. ABAJO PALA 1ZQ.":GOSUB 240:A$="P. ARRIBA PALA DER 
ECHA":GOSUB 240:A$="L. ABAJO PALA DER.":GOSUB 240. 
320 PRINT:a$="PULSA -S- PARA EMPEZAR":GOSUB 2340 


POPE 


j i PP? 
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330 IF INKEY(60)<>0 THEN 330 

340 GOSUB 690 

350 INK 0.26: BORDER 26:PAPER O: INK 1,O:PEN 1 

360 MODE O 

370 INK 2.8: INK 3.18: INK 4.6 

380 PEN 2:FOR A=1 TO 25:PRINT STRING$(20+,"4")i NEXT 

390 WINDOW R1.2,19,2.4: WINDOW 2.19,6,24 

400 CLS Ri:CLSILOCATE 9.1: PRINT"*+f ":LOCATE 9.19:PRINT"+f" 
410 PEN 3:FOR A=2 TO 18:LOCATE 9.A:PRINT"bc":NEXT 

420 P=0:FA=0:GOSUB 660 

430 X1=10:X2=10 

440 XB=2+INT(RNDX17): YB=INT (RND*Z2) 

450 IF YB=0 THEN YB=11:D=1 

460 IF YB=1 THEN YB=8:D=- 

470 PEN 1:LOCATE 1.X1:PRINT" " 

480 IF NOT INKEY(67) THEN X1=X1-1:1F X1<2 THEN X1=2 

490 IF MOT INKEY(69) THEN X1=X1+1: IF X1>18 THEN X1=18 
500 LOCATE 1.X1:PRINT"d" : | 
510 LOCATE 18.X2:PRINT" " 

520 IF NOT INKEY(27) THEN X2=X2-1:1F X2<2 THEN X2=2 

530 IF MOT INKEY(36) THEN X2=X2+1:1F X2>18 THEN X2=18 

540 LOCATE 18.X2:PRINT"e" ' 

550 LOCATE YB.XB:PRINT" " 

560 YB=YB+(D/2) 

570 IF YB<2 THEN IF XB=X1 THEN GOTO 610 ELSE GOTO 630 

580 TF YB>17? THEN IF XR=X2 THEN GOTO 610 ELSE GOTO 430 | i 
590 PEN 4:LOCATE YB.XB:PRINT"a" | | 

600 GOTO 470 

610 FOR A=100 TO 200 STEP 4:SOUND 1,A,1,15:NEXT:P=P+5:GOSUB 660 

620 GOTO 4490 | | | 
630 SOUND 2.600.15.15.0.0.31- | | 
640 FA=FA+1:GOSUB 660:GOTO 440 

650 GOTO 650 | ¡| 

660 LOCATE R1.2.2:PRINTR1."PTOS:"3P3:LOCATE R1.13.2:PRINTR1."FA: "¡FA 


670 IF FA>94 THEN 780 | 

680 RETURN | 
690 SYMBOL AFTER 97 

700 SYMBOL 97.60.102.223.191.191.255.126.60 | 
710 SYMBOL 93.7. 33,241;14,14,241,63;7 
720 SYMBOL 99,224,252.143,112.112.193.252,224 he) 
730 SYMBOL 100,124.224,192.192.192,192.224.124 

740 SYMBOL 101. 62. Hed 3. A Ms A 

750 SYMBOL 102.0» 126. 126, 126. 126, 126.126,0 | 

760 SYMBOL 193: 14:67:01 146:0:18441:72 | 
770 RETURN | 

780 REM XXX GAME | ¡OVER he. 

790 FOR A= 1 TO 20: FOR B=100 TO 200 STEP A:SOUND 1.B.1.15.0.0.31: NEXT B: NEXT A 
800 INK 0.0: INK 1.26: INK 2.,15.O:PAPER O: BORDER O: PEN 1:MODE O 

810 PEN 2:LOCATE 6.7: PRINT"GAME OVER" 

820 PEN 1:LOCATE 4.12:PRINT"PUNTOS: "¡USING "RRARRRA":P pu 
330.PEN 3: INK-3.1S5:LOCATE S5.17:PRINT. "OTRA? (S/N)" j A pa ill 


340 FOR A=1 TO 50:A$=INKEYS: NEXT A 
350 PEN 1 


260 IF INKEY(60)=0 THEN RUN 220 | | 
370 IF INKEY (46)=0 THEN CALL O | 
y lic E Bal pa | | ; A A A 


men 
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10 REM X ANGEL GARCIA DELGADO %X 
ZO MODE O 


INK O,O:INK 1.26: INK 2.7: INK 3.18 


40 PAPER O: BORDER O 


ORIGIN 318.210 


60 FOR a=0 TO 2XPI STEP PI/?7O 


300 


PLOT 0.0,2 
DRAW 3O0OXCOS (a). 1S5OXSIN(a) 
DRAWR 0.3OXSIN(a).3 


MEXT a 

PRINT CHR$(22)+CHRs$(1): 
A$="FRONTERA":A=11-(0.S5X(LEN(AS$))) 

LOCATE A.12:PRINT As; 

PRINT CHR$(22)+CHR$(0):; 

INK 2.7.0: INK 3.0.18 

FOR a=1 TO 300:SOUND 1.a.1.1S:NEXT a 

INK-2.18.7: INK 3.7.18 

FOR a=300 TO 1 STEP -2:SOUND 1.a.1:SOUND 2.aX*2.1:NEXT a 
INK 2.7: INK 3.18 

FOR a=1 TO SOO:NEXT a 

FOR a=0 TO SO:PRINT CHR$(7):FOR b=1 TO SO:NEXT b:NEXT a 


MODE: 1 

GOTO 280 

PRINT TAB(20-LEN(a$)/2): FOR a=1 TO LEN(as) 
b$=MID$(a$,a.1):PRINT bD$i: IF b$<>" " THEN PRINT CHR$(7)5 
NEXT a 


PRINT:PRINT:FOR a=1 TO 200:NEXT a:RETURN 

REM XXX INICIO DEL PROGRAMA XXX 

a$="<< FRONTERA >>":GOSUB 240:PRINT 

A$=" IMPIDE QUE LOS FANTASMAS LLEGEN":GOSUB 290:A$="A LA FRONTERA QUE TU":GO0S 


UB 240:A$="ESTAS DEFENDIENDO. ":GOSUB 240 


310 


PRINT:A$="CONTROLES: ":GOSUB 240:A$="CURSOR ARRIBA”:GOSUB 240: A$="CURSOR ABAJ 


0":GOSUB 240:A$="SPACE. DISPARA”:GOSUB 2340 


320 
330 


340 
350 
360 
370 
380 
390 
400 
910 
420 
430 
440 
950 
3460 
470 
480 
490 
500 
s10 
=3zo 
530 


PRINT:as="PULSA -S- PARA EMPEZAR": GOSUB 240 
IF INKEY(60)<>0 THEN 330 

GOASUB 590 

PAPER O:BORDER 3:INK O.3:MODE 1 

INK 1.26: INK 2.20: INK 3.15 

PEN 3:FOR A=1 TO 25:PRINT STRINGS (40."a”) 
WINDOW R1.2.39.2.9:WINDOW 2.39.6.29:CLS Rel 
DIM M(19):FOR A=1 TO 19 

N=INT (RNDX2): IF N=0 THEN M(A)=1+INT(RNDX4) ELSE M(A)=340-INT(RNDX4) 

MEXT 

x=9 1 XB=X:P=0: GOSUB 580 

IF NOT INKEY(O) THEN X=X-1:1F X<1 THEN X=1 

IF NOT INKEY(2) THEN X=X+1: IF X>19' THEN x=19 

PEN Z2:LOCATE 19.XB:PRINT” "3 ¡LOCATE 19.X:PRINT"ab”; 

XB=X 

IF NOT INKEY(97) THEN GOSUB 530 

N=1+IMT (RNDX13) 

LOCATE M(N).N:PRINT" "¡IF M(N)>19 THEN M(N)=M(N)-1:1F M(N)=20 THEN 680 

IF M(M)<20 THEN M(N)=M(N)+1:1F M(M)=19 THEM 680 

PEN 1:LOCATE M(N).N:PRINT"d"; 

GOTO 430 

PEN 1:LOCATE 1.X:PRINT"Ccceceeoeeoeoecececc”¡:LOCATE 21.X:PRINT"cccccecccceccceo 


¿NEXT 
cLs 
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YI) EY Y Y YY YA YY Ss Y YY SS SYQIOOYYSYJY YO YY SY YEs 


ccco"¡:ENT 1,100,10.1:ENT 2.1.0.2.100.10.1:SOUND 129 
40.15,0,1:SOUND 130.50.940.15.0.2 

IF M(X)>19 THEN M(X)=40 ELSE M(x)=1 

P=P+5:GOSUB 580 


: 50» 


590 
550 
560 
570 
580 
5390 
600 
ól0 
620 
630 
640 
650 
660 
670 
680 
690 
200 
710 
720 
730 
740 
750 
760 
270 
780 


LOCATE 1.X:PRINT" ¡ "3 ¡LOCATE 21.X:PRINT" 
RETURN 
LOCATE.-Pei, 11.2: PRINTRi. "PUNTOS. 5. "¡PIRETURN 


SYMBOL AFTER 97 

SYMBOL 97,15,255,255.31.31.255.255.,15 
SYMBOL 98,240.255,255,248,248.255.255.2340 
SYMBOL 99.0.126.126.0.0.126.126.0 

SYMBOL 100.62.73,109,127.65.99.127.85 
SYMBOL 101.5.6.5.6.5.6.5.6 

SYMBOL" 102/32,32,/32,32,32,32,.32,32 

SYMBOL 103,255.161.193.161.193.169.213.255 


RETURN 
REM XXX GAME OVER XXX 

FOR A=1 TO 20:FOR B=100 TO 200 STEP A:SOUND 1.B.1.15.0.0.31:NEXT B:NEXT A 
INK O.O: INK 1,26: INK 2.15.O:PAPER O: BORDER O:PEN 1:MODE O 

PEN Z2:LOCATE 6.7:PRINT"GAME OVER” 

PEN 1:LOCATE 4,12:PRINT"PUNTOS: "¡USING "RARRRR"iP 

PEN 3:INK 3.1S5:LOCATE S.17:PRINT "OTRA? (S/N)" 

FOR A=1 TO 50: A$=INKEYS: NEXT A 

PEN 1 


IF INKEY(60)=0 THEN RUN 220 
IF INKEY(96)=0 THEN CALL O 
GOTO 760 
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LABER-BALL 


10 REM X ANGEL GARCIA "DELGADO %X 
ZO MODE O 


30 


INK O.O: INK 1.26: INK 2.7: INK 3.18 


40 PAPER O: BORDER O 

50 ORIGIN 318.210 

60 FOR a=0 TO 2*xPI STEP PI/70 
70-PLOT-D,0+2 

30 DRAW 300X*C0S(a).150XSIM(a) 


90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
-250 
260 
270 
280 
290 
300 


310 


DRAWR 0.30XSIN(a).3 


NEXT a 

PRINT CHR$(22)+CHR$(1): 
A$="LABER-BALL":A=11-(0.S*(LEN(A$))) 
LOCATE A. 12:PRINT As: 

PRINT CHR$(22)+CHR$(0): 
INK-2+7,O3¡INK- 30,18 
FOR-a=1-TO-300:SOUND 1.a.1.15:NEXT- a 
INMK 2.18.7: INK 3.7.18 


EXT an 
LP 


FOR 300 TO 1 STEP -2: SOUND 1.a:. 11: SOUND 2.aX2.1:NEXT a 


INK 2,7: INK 3.18 
FOR a=1. TO SOO:NEXT a 


NEXT. a | 
PRINT: PRINT: FOR a=1 70 200: NEXT a: RETURN 
REM XXX INICIO DEL PROGRAMA XXX 


a$="<< LABER-BALL >>":GOSUB 240: PRINT 


FOR a=0 TO SO: PRINT CHR$ (7) ¿FOR b= 1 TO 50: NEXT b:NEXT a 
MODE 1 | ¡ 

GOTO 230 

PRINT TAB (20- LEN(a$)/2):FOR a=1 10 LEN(as) 

b$=MID$S(as, as 1):PRINT. b$3:1F-b$<>" ”"-THEN PRINT.CHR$1(7): 


A$="RECOGE LAS BOLAS DISPERSAS":GOSUB 240: A$="POR EL LABERINTO. ANTES DE QUE 
—"¡GOSUB 240:A$="EL TIEMPO SE AGOTE.”:GOSUB 240 


PRINT:A$="CONTROLES: ":GOSUB 240:A$="0Q. ARRIBA 


ZQUIERDA P. DERECHA”: GOSUB 240 


320 
330 


¿PRINT:a$="PULSA -S- PARA EMPEZAR” : GOSUB 240 


IF INKEY(60)<>0 THEN 330 
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A. 


ABAJO":GOSUB 240:A$="0. 1 


ra Ya Ya Ya Ya Ya Ya Ya Ya Ya Ya Va Va rn Tr Ta Tarn Vr Ya fa fa fa fa Ya Y 


ANA 


JE 0 Y 


340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
si0 
520 
530 


590 
550 
560 
570 
580 
590 
600 
610 


620 
630 
640 
650 
660 
670 
630 
690 
700 
710 
720 
730 
240 
750 
760 
770 
780 
790 
800 
sg10 
820 
830 


840 
850 
360 
870 


GOSUB 33 


INK 0O.O: BORDER O:PAPER O:PEN 1:MODE O 


0) 


INK 1.26: INK 2.15 


INK 4,234 


WINDOW R1.1.20.1.3: WINDOW 1,20.4,25 


PEN 2:60 


SUB 620 


P=0: T=250:GOSUB 390 


PEN 3: IMN 


K 3.10.20:FOR A=1 TO 10 
X=1+INT(RNDX20) : Y=1+INT(RNDXZ0) 


LOCATE Y.X:CALL 30000:1F PEEK(29999)=32 THEN LOCATE Y.X:PRINT"b": ELSE 420 


NEXT 


X=2:Y=2: XB=X:YB=Y 


IF NOT. INKEY(67) 
IF NOT INKEY(69) 
IF NOT INKEY(34) 
IF NOT INKEY(27) 


THEN x 
THEN X 
THEN Y= 
THEN Y 


LOCATE Y.X:CALL 30000 


C=PEEK (2 


IF C=97 THEN SOUND 1.300.2:X=XB:Y=YB 


9999) 


IF C=98 THEN BO=BO+1:FOR A=100 TO 200 STEP 5:SOUND 2.A.1:NEXT:P=P+T:GOSUB 59 
O:1F BO>9 THEN 920 


PEN 4:LOCATE YB.XB:PRINT" 


XB=X: YB= 
T=T-1:60 
GOTO 460 
GOTO 580 


X 
SUB é00 


"¿¿LOCATE Y.X:PRINT"C":i5 


LOCATE R1.2.2:PRINTR1."PT:"¡P:LOCATE R1.11.2:PRINTRi. "TIME" 


LOCATE R1.17.2:PRINTR1.USING 


FOR a=30000 TO 30006: READ b:POKE a.b:NEXT a 


RETURN 
PRINT"aaaaaaaadaamamadada” 
PRINT"a a 
PRINT"aaaaaa aaaa 

PRINT"a a aaaaa 
PRINT"a aaaaaaaasaa a a 
PRINT"a a aa a a 
PRINT"a a aaa a a aa a a 
PRINT"a aa a a a asaa a 
PRINT"a a a a a a 
PRINT"a a adaaa aagaaaaa 
PRINT"a a a 
PRINT"a a asaaa aaa aaaa 
PRINT"a a a aaaa. a 
PRINT"a aaaaaa a 
PRINT"aaaaaacaasa 
PRINT"a a aaa a a a a aa 
PRINT"a a aa a aa 
PRINT"a aadaadaa aaaaaaaa 
PRINT"a 
PRINT"aaaaaaaaaaaaaaaaaaca” 
RETURN 

DATA 205.96.187.50.97.117.201 
RESTORE 830 

SYMBOL AFTER 97? 


SYMBOL 97,255,129,189,189,189,189,129,255 


YU UU 


"RAP "3Ti21F T<1 THEN 940 
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880 SYMBOL 98.0,60,102.94.94.126.60.0 

890 SYMBOL 99,0.60.90.126.66.36.90.0 

200 SYMBOL 100.0.72.18.0.84.0.18.,0 

910 RETURN 

920 ENT 1.5.-1.1.5,0,1:FOR A=300 TO 1 STEP -S:SOUND 1,A,10.15.0.1:NEXT 
930 P=P+500:GO0TO 940 

940 REM XXX GAME OVER XXX 

950 FOR A=1 TO 20:FOR B=100 TO 200 STEP A:SOUND 1.B.1.15.0.0.31:NEXT B:NEXT A 
960 INK O.O:INK 1.26: INK 2.15.0:PAPER O: BORDER O:PEN 1:MODE O 

970 PEN Z2:LOCATE 6.7:PRINT"GAME OVER" 

980 PEN 1:LOCATE 4.12:PRINT"PUNTOS: "¡USING "RR" iP 

990 PEN 3: INK 3.1S:LOCATE S.17:PRINT "OTRA? (S/N)" 

1000 FOR A=1 TO 50:A$=INKEYS: NEXT A 

1010 PEN 1 

1020 IF INKEY(60)=0 THEN RUN 220 

1030 IF INKEY(46)=0 THEN CALL O 

1040 GOTO 1020 
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van rm fa fa fa fa la 13 fo 12 la fa Ya fa Ya 12 12 lo Ya fa 12 1/9 1/2 19 9 1/2 13 f: 


a ES 


ue 


RIN 
o 


ESPACIO 


ON 
50 
60 


SYMBOL AFTER 239 
INK O,O: INK 1.26: INK 3.294.S8:PAPER O 
MODE O: BORDER O:GOSUB 380 


LOCATE 1.13:PEN 3:PRINT" ESPACIO "¡FOR t=10 TO 500 STEP 10:SOUND 5.t.1 
EXT 
MODE 1: PEN 1:PRINT:PRINT:PRINT" Al rearesar de tu paseo espacial " 
PRINT Y encuentras oue tu nave ha sido des-” 
PRINT " — montada por unos diminutos seres ” 
PRINT e galacticos. ” 
PRINT:PRINT A Debes recontruirla antes de que se” 

PRINT E agote tu reserva de oxigeno. para ” 

PRINT a ello tienes oue colocar sus piezas” 

PRINT ll sobre la plataforma de despeque ” 

PRINT E empezando por la base y terminando 

PRINT " do por el FUEL...PerOD......” 

PRINT:PRINT " "TEN CUIDADO CON LOS EXTRATERRESTRES! !'" 
PRINT:PRINT:PRINT" (UTILIZA JOYSTICK O CURSOR)" 

LOCATE 1.22:PRINT"PARA COMENZAR EL JUEGO PULSA UNA TECLA" 

IF INKEYS$="" THEN 180 ELSE CLS 


SYMBOL 250.24.60.90.126.60.24.231.153 
SYMBOL 251.1.3.6.4.131.65.39.31 

SYMBOL 252.2.1,1.2.2:2.2:6 

SYMBOL 253.128.192.96.32.192.128,224.112 
SYMBOL 254.200.135.128.64.64.64.64.96 
SYMBOL 240.1.3.3.5.4.5.5.9 
SYMBOC24rÍTOTIO Fri ÍO Grito +trtrro 

SYMBOL 242.128,192.192,160.32,160.160,144 
SYMBOL 243.80.208.80.208.30.208.80.203 
SYMBOL 244.27.21.21.22.20.25.27.29 

SYMBOL 245.216.168.168.104.40.152.216.184 
SYMBOL 246.50.116.99.116.104.112.96.69 
SYMBOL 247.76.46.198.46.22.14.6.2 

SYMBOL 248,0.0.0.63.127.149.181.149 
SYMBOL 249.0.0.0.240.248.44.108.43 

SYMBOL 255,181.177.127.63.0.0.0.0 
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350 
360 
370 
380 
390 
4900 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
6830 
690 
700 
710 
720 


TAG: 
730 IF M2X+16>X AND 


SYMBOL 239.108.36.248.240.0.0.0,0 
MODE 1: INK O.O: INK 1,26 


PR=1 

FOR i=1 TO 640 STEP 4 
PLOT i.RNDX400. 1 

NEXT 

DEG 

MOVE 20.350 

FOR i=1 TO 360 STEP 3 


DRAW 25+40%*SIN(i).350+40%XC0S(i) 
NEXT 
MOVE 12.355:FILL 1 


IF PR=0 THEN RETURN 


x=340: y=3490:+x=270:fy=360 
nix=600:n1v=265:n2x=150:n2yY=350 
mix=-10:m2x=650:m3x=-10:m4x=650 
LOCATE (1.24: PRINT 
MOVE 1.15.3:DRAW 250.15: DRAW 250.0: DRAW 1.O:DRAW 1.15 


MOVE 3.12: FILL: 3 


TAG 


GOSUB 990 


zZ= 


MOVE 


INT(TIME/300) 
MOVE x.vY.1.O:PRINT CHR$(251); 
x.Y-16:PRINT CHR$(252)5 


IF a>»640 THEN a=0 
a=atr?7 
mix=((a)*2)MOD 640:m1y=(G60X*SIN(a))+240+RNDX16 


m3ix= 


"OXIGENO": 


¡BORDER O 


¿PRINT CHRS(253):5 
¿PRINT CHRS(259):5 


((a)*2)MOD 640:m3vy=(940X*SIN (a) )+125+RNDX16 


m2x=((632- al *2)MOD 640:m2y=(S60X*SIN(a) ) +200+RNDX15 
MOVE mix.miv.3:PRINT CHR$(250)5 
MOVE m3x.m3y.3:PRINT CHRS$ (250): 
MOVE m2x.m2v:PRIMT CHR$(250):5 
t=(INT(TIME/300)-zZ)X2 

MOVE 400.10: DRAW 460.10:DRAW 460.0: DRAW 400.0: DRAW 
MOVE 430.2: FILL 1 
MOVE 250-t.15:PRINT CHR$(32):5 
IF T>250 THEN 1300 
IF M1X+16>X AND 


Z=Z-5 


¡SiTAG:Z=Z-5 


740 IF M3X+16>X AND 


¿2 TAG:Z=Z-S5 


750 
760 
770 
780 
790 
800 
3810 
220 
830 
8940 
850 
860 


IF 
IF 
IF 
IF 
IF 


MOVE x.vY-16,0.2:PRINT CHR$(252) 


IF 
IF 
IF 
IF 
IF 


INKEY (0)<>-1 
INKEY (2)<>-1 
INKEY (8)<>-1 
INKEY (1)<>-1 


M1iX<X+32 AND M1Y-16<Y 


M2X<X+32 AND M2Y-16<Y 


M3X<X+32 AND M3Y-16<Y 


OR 
OR 
OR 
or 


ci=0 GOTO 820 
MOVE x.y.0.2:PRINT 


INKEY (72)<>-1 
INKEY (73)<>-1 
INKEY (749)<>-1 
INKEY (75)<>-1 


CHRs$ (251); 


cy=1 THEN y=y+8:cvy=0 
cv=-1 THEN y=vyv-8:cv=0 
ecx=1 THEN x=x+8:cx=0 
cx=-1 THEN x=x-8:cx=0 
x>6340 THEN x=0 
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THEN 
THEN 
THEN 
THEN 


AND MiY>Y-32 


AND M2Y>Y-32 


AND M3Y>Y-32 


Ci=1:cvy=1 
Ci=1:cv=-1 
ci=1:cx=-1 
ci=1:cx=1 


¿PRINT CHR*$(253)5 
SPRINT CHRS(2549):5 


400.10 


THEN TAGOFF:PRINT CHR%$(7) 


THEN TAGOFF:PRINT CHR$(7) 


THEN TAGOFF:PRINT CHR$(7) 


ci=0 


Pron rr 2? 0? 04 7?720 071070 7>7?77077+7N0/7/0//7//f/ 


ARS ESA ASS ANS SES ASES ASES SS) 


880 


870 


390 
900 


JRIP 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 


1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 


IF nix>640 THEN n1x=x+30 


¡"IF n2x>640 THEN n2x=x+30 


IF +$x>640 THEN fx=x+31 


IF x+32>n1x AND x<n1x+32 AND y>niy-32 AND y-32<n1y THEN MOVE nix.miv..2:PRIN 
T CHR$(244): :PRINT CHR$(245): : MOVE nix.nivy-16:PRINT 
CHR$(246) :PRINT CHR$(247):+:cn=1:GOTO 970 

910 IF x+32>n2x AND x<n2x+32 AND y>n2y-32 AND y-32<n2y THEN MOVE n2x.n2y..Z2:PRIN 
T CHR$(240)::PRINT CHR$(242)::MOVE n2x.n2y-16:PRINT 
CHR$ (241) :PRINT CHR$(243):;:cn=1:GOTO 1020 

920 IF x+32>fx AND x<fx+32 AND y>fy-32 AND y-32<fy THEN MOVE +x.fy..2:PRINT CHR$ 
(248) :PRINT CHR$(249):3 : MOVE +4x.fvy-16:PRINT CHR$(255 
RINT CHR$(239)::cn=1:GOTO 1070 

MOVE mix.miy..Z2:PRINT CHR$(32); 


MOVE m3x.m3vy:PRINT CHR$(32) 
MOVE m2x.m2vy:PRINT CHR$(32) 
GOTO 570 


" 
. 
. 


IF cn=1 AND h=0 THEN nix=x+30:n1y=y 


IF nix+24>400 AND n1x<460 AND niv<7S THEN n1X=3410 
MOVE nix.niv.1.O:PRINT CHR$(244) 


¡¿PRINT CHR*$(245) 


MOVE nix.nliv-1ó6:PRINT CHR$(246): :PRINT CHR$(247) 


IF cn=1 THEN 930 


IF cn=1 AND h=1 THEN n2x=x+26:n2y=y 
IF n2x+24>400 AND n2x<460 AND n2y<90 AND n2y>32 THEN n2X=9410:n2y=74:h=2 


MOVE n2x.n2vy.1.0:PRINT CHR$(240)::PRINT CHR$(242)5 


iniy=42:h=1 


MOVE n2x.n2vy-1ó6:PRINT CHR$(241):;:PRINT CHR$(243): 


IF cn=1 THEN 930 


IF cn=1 AND h=2 THEN fx=x+31:4fy=y 
IF $x+20>400 AND fx<450 AND +fy<100 THEM fxX=410:fy=-20:yv=-20:GOTO 1130 


MOVE €x.fvy.1.3:PRINT CHR$(248)::PRINT CHR$(249):; 
MOVE +€x.fvy-1ó6:PRINT CHR$(255) :PRINT CHR$(239); 


IF cn=1 THEN 930 
RETURN 
n2y=n2Y+7:n1y=n1y+7 
nix=n1x-2:n2x=n2x-2 


MOVE n2x,n2y,1,0:PRINT CHR$(240);:PRINT CHR$(242) 
MOVE n2x,n2y-16:PRINT CHR$(241);:PRINT CHR$(243); 
MOVE nix,niy:PRINT CHR$(244)5:PRINT CHR$(2345); 
MOVE n1ix.niv-16:PRINT CHR$(246): :PRINT CHR$(247); 
FRAME: FRAME: FRAME: FRAME: FRAME 


IF niv>430 THEN 1270 


MOVE n2x.n2y,.0.2:PRINT CHR$(240);:PRINT CHR$(242) 
MOVE n2x.n2y-16:PRINT CHR$(241):3: PRINT CHR$(243) 
MOVE nix.niv:PRINT CHR$(2449)3:PRINT CHR$(245):; 

MOVE n1ix.niv-16:PRINT CHR$(246): :PRINT CHR$(247) 
MOVE nix.n1iy-23:PRINT CHR$(143);:PRINT CHR$(143) 


GOTO 1130 


MODE 1: BORDER 17 :INK 0.26 


LOCATE 1.10 :PRINT "XXX !! 
GOTO 1340 


LOCATE 5.10 :PRINT "XXX LO SIENTO TE HAS QUEDADO XXX" 


MODE 1: BORDER 17 :INK 0.26 
PRINT:PRINT" XXX 
GOTO 1340 


LOCATE 1.19:PRINT ” XXX LO INTENTAS DE NUEVO 


A$=IMKEYSs 


:INK 1.0 


:INK 1,0 


SIN OXIGENO XXX 


.. 


ENHORABUENA LO COSEGUISTES 


LI AXA" 


¡S/Nde XXX" 
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136 
137 
138 


O IF AS="S" OR A$="s" THEN CLEAR:GOTO 190 
O IF AS="N" OR AS="n" THEN CLS:END 
O GOTO 1350 


FANTASMA 


10 
20 
30 
40 
50 
60 
70 


56. 
30 
20 
100 
110 
120 
130 
140 
150 
160 
170 
130 
190 
200 
z10 
220 
230 
240 
250 
260 
270 
280 
290 
300 


30 - 


CLEAR 

REM ReRefeBeleBctede PRESENTACION ReBcBeReRoleRcee 
MODE O: INK 0O.O: BORDER O 

INK 1.3 

CLS 

LOCATE 3.6:PRINT"F ANT ASMA" 


SOUND 1.568,20.7:SOUND 1.638,20,7:SOUND 1,568.150.7:SOUND 1.758.40.7: 
716, 


40.7:SOUND 1.758.40.7:SOUND 1.851.40.7:SOUND 1.9 

40.7:SOUND 1.902.170.7:SOUND 1.851,170,7 

FOR X=1 TO 700:NEXT 

FOR SAl=1 TO 183 

LOCATE 4.SA1:PRINT CHR$(149): FOR RET=1 TO 200:NEXT RET:NEXT SA1 

FOR S5SA2=1 TO 24 

LOCATE 16.SA2:PRINT CHR$(133):FOR RET=1 TO 200:NEXT RET:NEXT SAZ2 
FOR SA3=1 TO 13 

LOCATE 12.SA3:PRINT CHR$(133):FOR RET=1 TO 200:NEXT RET:NEXT SA3 
FOR 5A4=1 TO 7 

LOCATE 19.SA4:PRINT CHR$(149):FOR RET=1 TO 200:NEXT RET:NEXT SsA4 
FOR SAS=1 TO 20 

LOCATE 8.SAS:PRINT CHR$(138):FOR RET=1 TO 200:NEXT RET:NEXT SAS 

FOR SAé6=1 TO 15 

LOCATE 14.SA6:PRINT CHR$(149):FOR RET=1 TO 200:NEXT RET:NEXT SA6 
co=0 


X=INT(PND(1)X20) 

Y=INT(RND(1)%24) 

IF (Y>294 OR Y<1) OR (X>20 OR X<1) THEN 220 
LOCATE X.Y:PRINT CHR$(143) 

SOUND 1.Y.X:SOUND 1.CO0.Y 

co=CcOo+1 

IF CO>200 THEN 300 

GOTO 220 

MODE 1 
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SOUND 1. 


AS 


310 INK 0.1: INK 1.16:CLS 

320 REM 8:88:88: INSTRUCCIONES 8:Bc8c8co 

330 LOCATE 12.3:PRINT"F ANT ASMA" 

340 LOCATE 12.4:PRINT"===============" 

350 LOCATE 1.6:PRINT"Te encuentras en un oscuro bosoue de las 
la, y delante de ti se planta una casa Dlagada de fa 

ntasmas horribles oue ouieren volverte loco." 

360 PRINT"Con la avuda de tu tirachinas debes intentar acabar 
empo limite. o de lo contrario te veras perdido." 


370 PRINT:PRINT" 4 S 6" 

380 PRINT" "¡CHR$(291)5" "¿CHR$(241):" 
390 PRINT " VENTANA VENTANA VENTANA” 

400 PRINT ” IZQUIERDA CENTRAL DERECHA" 

410 PRINT:PRINT" 1 2 3" 

420 PRINT" "¿CHR$(291)%5" "¡¿CHR$(241):5" 
4930 PRINT " PUERTA PUERTA PUERTA" 

440 PRINT " IZQUIERDA CENTRAL DERECHA" 


450 PEN 3:LOCATE 13,.24:PRINT"PULSA UNA TECLA" 
460 FS$=INKEYS 

970 IF F$="" THEN 460 ELSE 480 

480 MODE OQ 

490 PAPER S: BORDER 1: INK 1.26:CLS 

500 TIEMPO=0 


510 REM ====== FANTASMAS ====== 

520 REM ===MARCEL RISQUES 85=== 

530 REM ======================= 

540 REM 8cfcfcRc8ccRcde ESTRELLAS ReBeBcRoRe Rel le 
550 A=0 


560 ESTREX=INT(RND(1)%640): ESTREY=INT(RND(1)xX400) 

570 PLOT ESTREX,ESTREY:A=A+1 

580 IF A=100 THEN 600 

590 GOTO 560 

600 REM ReleBeBcRcRclcRee CASA BeReBeReReReBc RR 

ól0 FOR XCASA=4 TO 17? 

ó620 FOR YCASA=2 TO 1? 

630 PEN 3:LOCATE XCASA. YCASA:PRINT CHR$(143): NEXT: NEXT 


640 REM 8:8cRc8:BcRcRcBcRc de SUELO ReBReERERRclc Reto 
ó650 FOR SUEX=1 TO 20:FOR SUEY=18 TO 25 
660 PEN 9:LOCATE SUEX, SUEY:PRINT CHR$(127):NEXT: NEXT 


670 REM fefcReRcRcReBeReRede VENTANAS ReBcReBcBcReBeBeBeBele 


tierras del mas al 


con ellos en un ti 


"¿CHR$(241) 


"¡CHR$(241) 


680 SOUND 1.18.10.5:SOUND 1,1000.4:SOUND 1,200,12.7:SOUND 1.100,18,4 
690 X=0:PEN S:LOCATE 5.9:PRINT CHR$(131):LOCATE 6.9:PRINT CHR$(131):LOCATE 5.10: 


PRINT CHR$(140):LOCATE 6.10:PRINT CHR$(1340) 


700 LOCATE 10.9:PRINT CHR$(131):LOCATE 11.9:PRINT CHR$(131):LOCATE 10.10:PRINT C 


HR$(140):LOCATE 11.10:PRINT CHR$(140) 


710 LOCATE 15.9:PRINT CHR$(131):LOCATE 16.9:PRINT CHR$(131):LOCATE 15.,10:PRINT C 


HR$(140) : LOCATE 16.10:PRINT CHR$(1340) 
720 REM RcReBeReBcBele Bcc PUERTAS 8cReBeBe RR RR Rele 
730 FOR YPUERTAS=14 TO 16 


740 LOCATE 6.YPUERTAS:PRINT CHR$(206):LOCATE 7. YPUERTAS:PRINT CHR$(206) 
750 LOCATE 10. YPUERTAS:PRINT CHR$(206):LOCATE 11,.YPUERTAS:PRINT CHR$(206) 
760 LOCATE 14.YPUERTAS:PRINT CHR$(206):LOCATE 15. YPUERTAS:PRINT CHR$(206): NEXT 
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760 LOCATE 14. YPUERTAS:PRINT CHR$(206):LOCATE 15. YPUERTAS:PRINT CHR$(206): NEXT 


270 REM e:8RRReeeceee LUMA Rele RR lee R ee 

780 PEN 2:LOCATE 2.2:PRINT CHR$(214):LOCATE 2.3:PRINT CHR$(143):LOCATE 2.4: PRINT 
CHR$(213) :LOCATE 3.2:PRINT CHR$(212):LOCATE 3.4:PRI 

NT CHR$(215) 

790 REM ReBBRRARRReeeRFANTASMAS UR 

800 PEN 4 

810  FAN=INT(RND(1)X6+1) 

820 IF FAN<1 OR FAN>6 THEN 810 

830 IF FAN=1 THEN LOCATE S.10/PRINT CHR$(224): FOR Tl=1 TO 320:X=1:NEXT:GOTO 890 

3840 IF FAN=2 THEN LOCATE 11.10:PRINT CHR$(2294):FOR TI=1 TO 320:X=2:NEXT:GOTO 890 

350 IF FAN=3 THEN LOCATE 15.10:PRINT CHR$(224):FOR Tl=1 TO 320: xX=3:NEXT:GOTO 890 


860 IF FAN=4 THEN LOCATE 7.15:PRINT CHR$(224):LOCATE 7.16:PRINT CHR$(253).: FOR TI 


=1 TO 320: X=9:NEXT:GOTO 890 

870. IF. FAN=S THEN LOCATE 10.15:PRINT CHR$(224):LOCATE 10.16:PRINT CHR$(253):FOR 
¿Tl=1 TO 320:X=5:NEXT:X=1:G0TO 890 

:'880 IF FAN=6 THEN LOCATE 15.15:PRINT CHR$(224):LOCATE 15.16:PRINT CHR$(253):FOR 
Tl=1 TO 320:X=6:NEXT:GOTO 890 

890 REM ecRcBcBcRcRcRcReBede DISPAROS ReReReRcReReRcRe Rele 

900 AS=INKEYS: IF As="94" AND X=1 THEN LOCATE S5.10:PRINT CHR$(225):FOR Ti=1 TO 300 
¿NEXT:LOCATE 5. 10:PRINT CHR$(238): SOUND 1.50.20:PUNT 

OS=PUNTOS+1:G0TO 670 ] 

910 AS=INKEYS: IF A$="5" AND X=2 THEN LOCATE 11.10:PRINT CHR$(225):FOR Ti=1 TO 30 
O:NEXT:LOCATE 11.10:PRINT CHR$(2383):SOUND 1.50.20:PU 

NTOS=PUNTOS+1:GOTO 6470 

220 AS=INKEYS: IF A$="6" AND X=3 THEN LOCATE 15.10:PRINT CHR$(225):FOR Tli=1 TO 30 
O:NEXT:LOCATE 15,10:PRINT CHR$(238):SOUND 1.50.20:PU 

NTOS=PUNTOS+1:GOTO 670 

930 AS=INKEYS: 1F A$="1" AND X=94 THEN LOCATE 7.15:PRINT CHR$(225):FOR Tl=1 TO 300 
¿¡NEXT:LOCATE 7.15:PRINT CHR$(238):SOUND 1.50.20: PUNT 

OS=PUNTOS+1:GOTO 670 

940 A$=INKEYS: IF A$="2" AND X=S THEN LOCATE 10.15:PRINT CHR$(225):FOR Ti=1 TO 30 
O:NEXT:LOCATE 10.15:PRINT CHR$(238)SOUND 1.50.20:PUN 

TOS=PUNTOS+1: GOTO 670 

950 AS=INKEYS: IF A$="3" AND X=ó6 THEN LOCATE 15, 15:PRINT CHR$(225):FOR Tl=1 TO 30 
O:NEXT:LOCATE 15,15:PRINT CHR$(238):SOUND 1.50.20:PU 

NTOS=PUNTOS+1: GOTO 670 

960 REM ARRE MARCADOR eReRcRcRclclelo 

970 PEN 3 

980 PEN 6:LOCATE 8.24:PRINT "PUNTOS: "¡PUNTOS 

990 REM 8teteBclatiie TIEMPO 8clcRecbelclchelo 

1000 TIEMPO=TIEMPO+1 

1010 IF TIEMPO=40 THEN 1030 

1020 GOTO 6470 

1030 REM ReReReRefetee OTRA PARTIDA 8eleReReReRele 

1040 CLS:PEM 12 

1050 LOCATE 4.18:PRINT"PUNTUACION: "¡PUNTOS 

1060 LOCATE 3.8:PRINT"GRACIAS CAMPEON” 

1070 LOCATE 2.25:PRINT"OTRA PARTIDA (S/N)” 

1080 L$=INKEYS 

1090 IF L$="S" OR L$="s" THEN 10 

1100 IF L$="N" OR L$="n" THEN MODE 1:PAPER O:PEN 3 

1110 IF NOT (L$="S" OR L$="s") AND NOT (L$="N" OR L$="n”) THEN 1080 

1120 IF L$="" THEN 1080 
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—EDULITIDD 


- N.9 7 - 295 Ptas. 


BIBLIOGRAFIA 


Lo cciruel 


EL DOMINIO DEL AMSTRAD 
PCW 8256/8512 


“El dominio del Amstrad PCW 8256/8512” 
le sitúa en la vía rápida hacia el éxito en los 
negocios. Lo mismo si está Vd. empezan- 
do a utilizar uno de estos ordenadores, co- 
mo si está considerando comprárselo, es- 
te libro le mostrará rápidamente cómo ren- 
tabilizar al máximo su inversión. 


Una gran parte del libro trata del proceso 
de texto. 


Esta parte del libro es un medio didáctico 
excelente, que le conducirá desde los usos 
más sencillos del proceso de textos, a los 
más avanzados. Una sección aparte cubre 
el uso de NewWord, la potente alternativa 
de NewStarSoftware. 


HARAN HSA AE) 
CTRA TL TI 
dude? ata 


CPC 6128-664-464 


e RA-MA 


DOMINE EL CODIGO MAQUI- 
NA EN SU AMSTRAD 


Ahora tiene la oportunidad de aprender a pro- 
gramar en código máquina en su ordenador 
Amstrad. Clive y Scott —dos programadores 
muy competentes, con gran experiencia en li- 
bros y software a sus espaldas— son los guías 
ideales para ayudarle a comprender las inte- 
rioridades de la programación en código má- 
quina del Amstrad. 


Debe ir trabajando en código máquina del 
Amstrad. 


Debe ir trabajando a lo largo del libro, saltán- 
dose las secciones que le presentan una es- 
pecial dificultad la primera vez que las lea. 
Cuando haya terminado su primera lectura, 
tendrá los suficientes conocimientos como pa- 
ra poder comprender aquellas secciones que 
dejó sin completar la primera vez que pasó por 
ellas. 


AMIGOS DEL 
AMSTRAD 


EDITORIAL 


Todos los meses, con la revista, pretendemos que 
sea una guía práctica, incluyendo gran variedad de 
programas para que puedas disfrutar mientras 
aprendes. 

Encontrarás programas que te mostrarán cómo 
construir imágenes de cualquier forma y a la vez 
utilizar el color. 

También verás cómo se usan los sprites y a diseñar 
tus propios caracteres. 

Otros programas te mostrarán cómo aplicar 
gráficos de alta resolución, a producir efectos 
sonoros y música. 

Diviértete. 


Edita: Editorial GTS. C/. Bailén, 20. 1.? Izda. 28005 MA- 
DRID. Secretaria Redacción: Margarita Rancero. Colabo- 
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EX EXS E 


a o oo 
EX EX ES 


EXPLICACIORA 
PE LOS PROGRAHAS 


JOE LOVE 


do REM PARE BARRY 12 Ez 


30 REM XXXXXXkx G.T.S. XXkXxXk 
40 REM 
50 MODE 0 


60 INE 0,0: TINE 1,26: INE 2 


70 PAPER O:RORTIER 0 
80 FEN 1 
90 ORTGIN 318,210 


Xx 


,7:INK 3,18 


100 FOR a=0 TO 2xFI1 STEF FI/70 


110 PLOT 0,0,2 


120 ORAW 300*XCOS (a) ,150OXxSIN(a) 


130 TRAWR 0,30XSIN(a),3 
140 NEXT a 

50 FPRINT CHRE (22) +C0HRE (1 
160 LOCATE 7,12 

170..PRINT ".JOE--LOVE" 


180 FRINT CHRE (22)+CHREC(O) y 


190 INK 2,7,0: INK 3,0,18 
200 FOR a=1 TO 300 :SOUNUO 
210 INK 2,18,7:+INK 3,7,18 


); 


1,a,1,15:NEXT a 


220 FOR a=300 TO 1 STEF -2:SOUND 1,a,1:SOUND 2,axX2,1:NEXT a 


230 INE 2,7: TNE 3,18 
240 FOR a=1 TO SOO¿NEXT a 


250 FOR a=0 TO SO+FRINT CHR*(7) :FOR b=1 TO SO:NEXT b:¿NEXT a 
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RPRAARARRARNANRNCANRANAAARAONRNRARONRVN Y 7 fo 19 12 12 


VIYIOEOJSOJSUUOUYUUUOUUUOOUOUVOUY 


260 
270 
280 
290 
300 
310 
320 
330 
340 
330 
360 
370 
380 
390 
400 


410 


ao 
430 
440 
450 
460 
470 
480 
490 
S00 
10 
20 
30 
540 
TEF 
SO 
560 
570 
580 
590 
600 
610 
620 
630 
640 
630 
660 
670 
680 
690 
700 
710 
720 
730 
740 
730 
760 
770 
780 
790 
800 
810 
820 
830 
840 


MOME 1 

GOTO 320 

FRINT TAR(ZO-LEN (at) /2) :FOR a=1 TO LEN(az) | 
bé=MT0 (aja ld) GPRINT bp: IF bx" " THEN FRINT CHREC7); 
NEXT a 

PRINT:3FRINT:FOR a=1 TO 200:NEXT a:¿RETURN 


REM XxX INICIO MEL FROGRAMA Xxx 

as="<2% JOE LOVE >>>" :GOSUB 280 

PRINT:A$="AYUDA A JOE A RECUPERAR" :GOSUB 280 

As="LOS CORAZONES PERDIDOS, NECESARIOS" :GOSUBE 280 
At="FPARA CONSEGUIR EL AMOR DE SU CHICA." :GOSUE 280 
A$="PERO TEN CUIDADO CON LAS HIENAS" :GOSUB 280 : 
PRINT:A$="USA: TECLADO (Q.A.0.F) O JOYSTICK" :GOSUB 280 
PRINT:A$="FULSA UNA TECLA FARA EMPEZAR" :GOSUB 280 
As=INKEYS$:1F INEEYS="" THEN 400 

PRINTOCHRE(7) ; 

GOSUB 950:GOSUE 850 

V=3 

MODE 1:INE 0,26: 1NE 1,0:INE 2,15: INK 3,2 

PAPER O:BORDER 26:CLS 

WINTIOW 1,40,4,25:PEN 1:CLS 

WINTIOW $1,1,40,1,3:PAFERH1,2:PENH1,0:CLSH1 

GOSUE 830 

RESTORE 740 :M=40000 

READ A:FPOKE D,A:D=[+1 

IF A=255 THEN GOTO 530 

GOTO 500 

DEFINT X,Y:iX=10:Y=20 
H=1+INT(RNDKX19) :T=1+INT (RNDIX39) ¿POKE 40015,H:POKE 40016,1:FOR B=100 TO 200 3 
10:SOUND 2,B,1,15:NEXT E 

GOSUBE 830 

CALL 32768 

IF PEEK(39999)=1 THEN GOSUB 670:G0TO 440 

TF INKEY(67)=0 OR JOY(O)=1 THEN X=X-1:1F X<1 THEN X=1 
IF INKEY(69)=0 OR JOY(0)=2 THEN X=X+1:1F X320 THEN X=20 
IF INKEY(34)=0 OR JOY(0)=4 THEN Y=Y-1:1F Y<1 THEN Y=1 
TF INKEY(27)=0 OR JOY(0)=8 THEN Y=Y+1:1F Y39 THEN Y=39 
POKE 40003,X:POKE 40004 ,Y 

IF X=H AND Y=1 THEN P=F+15:GOTO 540 

TF X+1=H AND Y+1=1 THEN P=P+15:GOTO 540 

GOTO 560 

DATA tO7TO 2 1720721557472 874 

FPOKE 40010,180:POKE 40011,184 

FOR A=0 TO 255 STEP 10:SOUND 1,4,10,15,0,0,31:CALL 32768:NEXT A 
V=V-1: TF V3=0 THEN RETURN 

FOR a=0 TO 40:PRINT CHR$(7) :A$=INKEY+:NEXT a 

PEN 1:LOCATE 16,11:PRINT"GAME OVER" 

IF INKEY$="" THEN 720 

RUN 430 

DATA 3,10,20,10,20,0,0,0,0,1,160,164 

DATA 3,10,10,10,10,0,0,0,0,2,168,168 

DATA 11,12,12,1,2,20,04/1,39,2,1172,176 

DATA 1,15,15,0,2,20,1,2,39,3,176,172 

DATA "11,10,10,2,2,20,2,2,39,2,172,176 

DATA! 11,10,25,2,3,1B,0,5,35,23,176,172 

DAFA-L y 3070 y 202 3272 17 

DATA. 1,5,10,2,1,20.,2,11,39,2,172,176 

DATA 255 
LOCATER1,2,2:PRINTH1,"FUNTOS:"5P¿TAB(27) "VIDAS: "¿0 
RETURN 
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8s 0 DATA ere seran recreos 
DFS8024C0DFS5802CCD i 


5802 ENERO 


_3FEO 


860 DATA FEO00200 2D7DFDBE042015FD3603021 
D7EO6FEO1: 820FE0020001257CFDBEO72015FD360 


00B2 


870 DATA INN JA. ed 4 
-— DFS803C24 DF3B02392C3CCDFABO24 


nc 


1C 


h C JO 
1910 
RO. 
930 
940 
950 
960 


Ad 


o 

390 
1000 
10 


A E 


1120 

1130 

1140 

1150 
A 

1170 

1180 


1190 
1200 
1210 


1220 
1230 
1240 


12820. 


47CFD 


DE180 


9cscr 


DATA--1Z-- 


3FND6E04FD7401F 


RESTORE 850: 


READ £ 


+ ¿N=LE 


FOR A=1 TON 


POKE 
SYMBOL 
SYMBO 


SYMBO 
SYMBO 
—SYME 
SYMBOL 
“SYMBOL 
SYMBOL 
SYMBOL. 


O SYMBOL. 
SYMBOL 


SYMBOL 


) SYMBOL 
SYMBOL 
SYMBOL 


SYMBOL. 
SYMBOL. 
SYMBOL 
SYMBOL 


'60 SYMBOL 


SYMBOL 
SYMBOL 
SYMBOL 


SYMBOL 
SYMBOL 
SYMBOL: 
RETURN 


SYMBOL: 


¿VAL (B 

AFTER | 

160,3, ad 29 ,63,56 ,54, 48 
—tetjt 

162,124, "255 ¿207105 is 

163 162,254, 247, 83, 243 
El 164, 3,14, 29, 
192, 240 
020 SYMBOL 166,124,127, 
167,62 255, 2 
168, 60, 102,2 
169, 60, 126,2 


165 


178, 255 1117,251,62 127,231) 1 
179 ,255, 94, 111, 188 ,254, o. 
180, 33, 20 7: E vd bi 


183,236,249 1204 82, 
184,137,32,8, 
185,137,32,8, 
186,137,32,8, 
187,137,32,8, 


+ 


A o 


i 


j 


E ES PS E 


OOFEO328052 


O DATA FD23FD23FD23FD2 a ao DAR419CCDO68124C 


6812CCD068125 ¡CIO681C9F ESESFSCO7SGBBF1FSCOSDBEF1E1F 


32768 | | 
(AS): ZA. THEN. RETURN. 


890 DATA 188104CM18810CCI 188105CI1 11881C1C9ES7CB8C228817DB 902 
di ci 00000000 


y 


A 


o 
A mi 


i 
ki 
: 


RE AAAREn 


BER 2: Bs= "S£"+MIDS$(A$,A,2) 
:DI=D+1 ¿NEXT A: GOTO. 920. 
e0 | | 


240,248, 


103,561: 
E 248,252 28,108,12. ll 
07,31,62,0 
240 ,240,120,124 
7,159,191,191,255,255 
5,127, 191, 1191,255,255 


1,127, 
14,254,252,252,248,240,224,128 
5,185,159,150,127,89 ,247,215 
5,157,249,105,254,154, 239,235 
5,117, 113,184,62, 103,227, 196 
5,94,78,29,188, ,230,199,: - 
5,185,159,159,125,119, 
5,157,249,249, 190,238, 


231,3 


aje3,3i li 3 4 LE 


A 4 


| 
| 200 
p 


¿EA 


+ 
j 


H 
A 


_ 


34, 128 1201 ¡1 172 l 
34,128 ,20, 1,72 l 


AND 


Pa TAS ES $ irc 


40. 
so 


70. 


REM xk 
cabal Saa nano G.T.S.- PA 
REM l 

MODE o! 
60 INK O,OzINK 1,26: INK: 2,471 INK «an 
PAPER O: BORDER o ¡ 


10 REM XX BATERIAS ISA REAS ok 


NGEL GARCIA DELGADO 


E 


80 ORIGIN 318, 210. 


90 
100 
110 
120 
130 
140 
150 
160 
E Der 0 
180 
190 
200 
210 
230 
240 
250 
260 
270 
280 
290 
300 
-310.. 
320 
330 
340 
350 


j 
a 


OA RANananROSRSPRESOnÓR 


As 503 0 


E 


370 
380 
390 


i 


. 


A 


SINK 


ADO 


PLDT..01,01,2..... 
DRAW AÓOXCOS (a) ,1SOXSIN(a) 


DRAWR 0 JRORBIN ca). 3. 


NEXT 
PRINT 
LOCAT 


PRINT "BATERIAS" | De 
PRINT. CHR$ (22) +CHR$(OM3 
2,70: INK 3,0,18. | 

a=1 TO 300:SOUND 1 
2,18,7:INK 3,7,18 
a=300 TO 1 STEP 2 : SOUND 
2,71 INK 3418 
a=1 TO S5OO:NEXT a. | 
a=0 TO 50: PRINT CUR (7) ¿FOR b=1. ro 50: ¿NEXT b: NEXT 


7 


INkK 
FOR 
INK 
FOR 


FOR 
FOR 
MODE 


a 


E 


1 


: 


7412 


GOTO 310 


PRINT SOTA ¿FOR a=1. TO LEÑA T 
¿PRINT 


D$=MIDS$ (as, al 


NEXT 


a 


| 


ce 


FOR a=0 TO 2RPr STEP PI/70. 


de 1 ,15 


a 


e 
HRS (22) +CHR$ (1) de 


3 


nl 
| 


po Sl 


rana] 


| 
j 
i 
Y 
| 
| 
| 
l. 
' 
pel 
Pa DO: A 


SiNEXT a 


FPRINT: q amii-Td-2004 NEXT al RETURN 
REM INICIO DEL PROGRAMA. qa 


Art 


BATERIAS ANTI 


JEREAS 


> 


Sodub 270. 1 


| 


Pe 


i 


bajes 
bs3:1F bs<>" di HEN PRINT CHR$ (7) y 


Aja ta :SOUND EZ aR2, 1: NEXT. 


FRINT: :As="NERRIBA A LOS AVIONES ÉNEMIGOS QUE" :GOSUB 
Aé=" INVATIEN TU ESPACIO AEREO" :GOSUB. 270 
PRINT:As="FARA HACERLO PULSA Fi, F270 F3" :GOSUB 270 


LE: TNEF Y (60) < 


GOSUE 
ac=0 


i 


fasO 
Jáftcod malcit SOA. CIA 


1010 


i 


2360 FRINT: ¡PINTOS ÍRULOA 1 S-PARA-EMPEZAR A G0SUB 270 —.- 
20 THEN GOTO. 370. : ¿E 


MAA 
270 
| | | 
Ll ae pa 
> | 
| 
| | 
dl E] aa 
| | 


| 
| 
| 
T 


y EE EE E JE 
EEE 
ES e eo co e e 


dl 


4 
EEE EE 


Sa EE 5 A 
l 4 | 
| 
rrnb Ai y E -. SN on a 
| ! | | | j 
dida e pu e DI 
1 Z pa O Al | e o ¿ 
! he 
| | 
[0 20 0 CS O A A 
| e 
PA A A -, E A A 
a | | 
a Í 
A o 
| | 


| 


| | | 
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Me 


E 


e 


A 


| 
. 
i 


410 
420 
430 
440 
450 
450 
470 
480 
490 
500 
510 
zo 
5330 
540 
al) 
560 
570 
580 
90 
600 
610 
620 
630 
640 
630 
660 
670 
680 
690 
700 
710 
7T2O 
730 
740 
70 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
LO) 
960 
970 
980 
990 


INK 0,20 


MOTE 

FAFER 0 

BORTIER 20 

FEN 2. 

ar= 1.114. 

FOR.-a=1 TO 9 

at=ar+CHRé (163) ¿NEXT a 

bi=ar+CHRE (164) +ar+CHRE (165) +ar+CHRE (166) +a+ 
LOCATE 1,23 

FRINT be; 

LOCATE 10,22:FRINT CHR$(162) 

LOCATE 20,22: PRINT CHRE (162) 

LOCATE 30,22:FRINT CHRE(162) 

GOSUR '830 

ZF=" "+CHRE(160)+CHRE (161) : X=" 

T= 1 

X=2+ TNT (RNITIXZO) 

Y=1 

ON TC GOSUB 690,730 

Y=Y+3 2: 1F Y337 THEN LOCATE Y,X:FRINT" "*GO0TO 600 
FEN 1 

LOCATE Y,X:PRINT Zé 

SOUND 1,1000,1 

IF Ol=2 THEN TF H=X THEN IF I=Y+1 OR I=Y+2 THEN GOTO 780 
GOTO 620 

H=21 :1F- TNEFY(13)=0 THEN N=2:I=10 

IF TNEEY(14)=0 THEN [I=2:1=20 

TF. INKEY (5)=0 THEN M=2:1=30 

RETURN 

FEN 1:a¿LOCATE J,H:FRINT" " 

H=H-=1:1F H22 THEN SOUNO 3,100,10:D=1 :FA=FA+1 :GOSUB 830 :RETURN 
LOCATE I1,H:*PRINT CHR*(239) 

SOUNT 2,50-H,1 

RETURN 

LOCATE 1,H:FRINT CHRE (238) 

FOR A=1000 TO 1100:SOUNO 1,4,1:NEXT A 
AC=AC+1 :¿GOSURE 830 

LOCATE T,H:FPRINT" "¿LOCATE Y,X:FRINT" sh 
GOTO 590 

FEN 2:LOCATE 3,1:PRINT" DERRIBADOS: "¿USING "*$$" ¡00 
LOCATE 25,1:FRINT"FALLOS: "¿USING "$" ¡FA 


T1F. FA:14 THEN 870 


RETURN 
FOR E=15 TO 30 

FOR A=100 TO 1000 STEP E 

SOUND 1,4,1 

NEXT A 

NEXT E 

MODE 0 

PEN 2 

LOCATE 6,8:FPRINT"GAME OVER" 

INK 2,3,20 

FEN 1 

LOCATE 4,13:PRINT"FUNTOS: "¡USING "4HHHHH"¡OCKX15 
FOR A=1 TO 6000:NEXT A 

GOTO 250 


1000 LOCATE 1,1:ENDO 
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| 
| 
' 
¿ 
| 
| 


PORRRRRRIRRRRRRRPRRRERRRIRRRRAA 


YRRAEEAAARAEASRAEAA AAAAIAAAIRASA 


1010 SYMBOL AFTER 160 

1020 SYMROL 160,64,224,227,255,127,7,0,0 
1030 SYMBOL 161,0,2,192,250,255,250 0,2 
1040 SYMBOL. 162,60,36,44,44,44,44,110,255 
1050 SYMROL 163,255, 255,2 So ,255,255, 255 ds 
1060 SYMBOL 164,255,247,231, 199,247,247,195 
1070 SYMBOL 165,2355,195, 129,249, 195,159,129 
1080 SYMBOL 166,255,195,129,249,227, 183,193 
1090 RETURN 


sn Ae 8] e 
1 
1 


E 


MOSQUITOS 


10 REM AMOO MOSQUITOS XXX XxX xk 

20 REM * ANGEL GARCIA DELGADO x 

30 REM OAGGOIOONK G.T.S. AGIOIOIOIOIOON* 

40 MOTE 0 

50 INE 0,0: INK 1,26: INK 2,7:INK 3,18 

60 PAPER O:BORIDER O 

70 ORIGIN 318,210 

80 FOR a=0 TO 2xPI STEP P1/70 

90 PLOT 0,0,2 

100 DRAW 300XC0S (a) ,150XxSIN(a) 

110 IRAWR O0,30xSIN(a),3 

120 NEXT a 

130 PRINT CHRE(22)+CHR£(1) ; 

140 LOCATE 7,12 

150 PRINT "MOSQUITOS" 

160 FRINT CHR$(22)+CHRE (0) ; 

170 INE 2,7,0:INK 3,0,18 

180 FOR a=1 TO 300:SOUND 1,a,1,15:NEXT a 
190 INK 2,18,7:INK 3,7,18 

200 FOR a=300 TO 1 STEP -2:SOUND 1,a,1:SOUND 2,ax2,1:NEXT a 
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210. 


220 


230 FOR 


24D 
250 
260 
270 


90 
| 300 
310 
320 
3307 
|——BAp 
350 
360 
370 
| 380 
! 390 


=P. 
: 400 PRINT: le 
¡ 1 


410 


430 
440 
450 


| 
ha 
i 
| 


480 
490. 
500 
510. 
A 
530 
540 
| | 550 


|--—560-, 


| 620 


fur 


suB 
640 


| | 


570 PEI 


580 
590 
600 


PRINT: 
AS="LOS 


: 


As="A. 


nn 


OR .a=1. 


E=MIOE ( 
PRINT: PR 
EM AMA 
$= nm. EE 
:A: 


As="0. 


F INKE 


APER "on ¿BORDER 22 ¿PEN 1. 


none E 
OSUR 11 
460 'GOSUE 1090 | 


OSUB 10 
=0 :GOSU 
=10:1=1 


e” INKEY 


=10 


INE 3, 2d 


10 500: N 


a=0. TO 501P = 


GOTO 300 
'RINT TAB (20- LEN (at) /2) 


ata, qa di 


INT :FOR 


MOSQUITO 
="CON LA 


¡INDESEA 


Near Y 


-—AZO-¡INK- 0-22 22: 1INK-4., 


SO 


10 
B 11070 
o. i 


E A | 
(67)=0 THE 


EXT_a E] 
INT .CHR$(7) ¿FOR 


: 


PRINT OL b+ 


in 


la=1.. To 200 : ¿NEXT 


S >>> 
LLEGADA DEL VE 


2S MOSQUITOS. ELIMIN? 
£="A LOS- MOSQUITOS PEQUENNOS, PERO SIN" +BOBUB— 
$="TOCAR A- LOS MAS GRANDES" :GOSUB 260. 

RINT:A ="0. ARRIBA! :GOGUB 260 


ys 


TZOUTERD 


" :GOSUB. 260 || 
TIERECHA" :GOSUB 260 pa | 
="PULSA -S- PARA e 


THEN GOTO 410 
INK-2,8:INK 3, 


HEN H= 2 


TF INKEY(69)=0 THEN H= H+1 


TF TNKE 
IF INKE 


OCATE I, 
DUNE 1 


610 TB=I:H 


1F Lo -161 


m0. CA 160 


(34)=0 T 
(27)=0)-T 


E, HB: PR 
Hz PRIN 
,2000, 1, 


THEN E 
THEN F 


INT 


2 


HEN I=+T+*1 
HEN I=I+1 


O CALL 3000010 PEE 29999) 


Curs (164) 


TO 650 


35" 
660 
: 670 
| 680 
1-69. 
70D 
710 

: 720. 
730 
y P4p- 
7590 
760 
770 
780 


REM nea 
INK 0,6,12:BORD 


MUERTE 


YES 


PR 6,12 


OR A=1 TO 1000 STEP 3 | 


SOUND 1, 


NEXT A. 
INK 0,22: 


OTE 0 


3 2,22 


IR. A=1 TO 10000: NEXT A 
RUN 


240 


31 


yl 


ar 


PEN 2:LOCATE 6, 7:PRINT"GAME OVER qa 
PEN 1 


CATE 4,13:FRI ¡T"PUNTOS USING RRA E PA 
Nk l 
o 


! 


quo 


790 


DR 


¿ j 
LEN (az) 


8 


halo VUE E 260. 


GOSUB 


9 E O A CI AAA A O 


bes a XT_b:NE 
| | 


¿FOR ist 


4 THEN PRINT 
as a] y] 


INICIO DEL PROGF AMA qa 
" :GOSUB 26 


60 


al 


AS 

e A Ae E A a. E 
MA 
j 
| 


DEE 


sl E US E A 1 

¡ 

1 

4 | 

¡Aa Ml H dl 
| 

¿ ¿ + 

¡ 


R A=1 TO 200 STEP 20: SOUND 1,0 A, 1ÓMEXT A:P=P+15:GOSUB 1 


10 


070:60. 


RPM 


| 
i 


Pra 


¡ 
¡ 


¿ É ¡ 
93 — | | 


RPRRRARRRRRRNNADRP 


| e 
| | na 
6 E E A IN E AL a 
| | 
| | | 
I UN 
| | | | 
e e h ¡0 
¿ i 
| 
a —Á y EN AS 


GYgIYIUOUCUYUDUUUUUUYUUUUUUaA4auUuUouYy 


800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
9200 
910 
920 
930 
940 
9530 
9260 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 


1230 


FAFER $41,3:CLS +1 
WINDOW 1,40,4,25 

FEN 3 

A$=CHR$ (166) +CHR$(166) 

B+= no. 

FOR A=1 TO 20 

Et=R3$+A:+ 

NEXT A 
FRINT R+¡R+; 
FOR A=1 TO 17:FPRINT Af¿TAB(39) A+; :NEXT A 
FRINT Eé¡Ri; 
RETURN 
REM Xxx MOSQUITO GRANDE. xakk 
X=3+TNT (RNTIX16) :Y=2+INT (RNDK35) 
FEN 2 
LOCATE Y,X:CALL 30000 :0=FEEK (29999) :1F 02:32 THEN GOTO 930 
LOCATE Y+1,X:CALL 30000:C0=PEEK (29999) :1F 0<532 THEN GOTO 930 
LOCATE. Y+1,X+1:CALL 30000 :0=FEEK (29999) :1F 0<3>32 THEN GOTO 930 
LOCATE Y ,X+1:CALL 30000 :C0=FEEK (29999) :]JF 02:32 THEN GOTO 930 
LOCATE Y,X:PRINT CHRE(162)+C0HRE (163) 

LOCATE Y,X+1:FRINT CHRE(164)+CHRE (165) 

X=3+ TNT (RNTIX17) :¿Y=2+INT(RNOx36) 

LOCATE Y,X:CALL 30000:0=PEEK (29999) 

IF e THEN GOTO 1010 

SOLINT 1300 »1 

PEN PRINT "CHRE (160) 

RETURN 

LOCATE $1,10,2:PRINTR1, "PUNTUACION: "¿USING "HHHHRRP 
RETURN | | 

REM x*x CODE SCREEN*$ xx 

DATA 205,96,187, 50, 47 117,201 

RESTORE 1100 

FOR a=30000 TO (30006 :READ b:POKE al bl NEXT a 

RETURN 

REM OIOIROIBIOIOIOIOIBIIOROOOK 

SYMBOL AFTER 160. 
SYMEOL.-160,80,168,156,223,120,36,68,130 

SYMBOL. 161,24,24,8,227,199 ,16,24,24 

SYMEOL 162,52,74,74,133, 130,131,227, 63 

SYMEOL 163,0,0,0,48,248,255,248, 192 

SYMEOL 164,15,20,20 144,216,16,96,0 

SYMBOL 165,128,192 160 ,176,64,48,0,0 

SYMEOL. 166, 182,109, 219, 182,109,219, 182,109 

RETURN : 


$ 
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BATERIAS 


1 GOSUE 3000 
MONE 1 


10 
20 
30 
40 
56 
56 
60 
70 
80 
90 
100 
105 
110 
115 
120 
125 
130 
140 


150 


160 
163 
200 
210 
220 
230 
240 
250 
260 
270 
280 
490 
500 


TNE 


O,26:TNE 1,0 


Os TINE 


2,20: 1NK 3,8 

WINDIOWR1,1,8,1,8:WINDOW 1,40,9,25:WINDIOW+$2,10,40,1,8 
PAPERH1,2:CLS41 :PENH 1,1 
BORDER 26 
GOSUR- 2500 
DIM A+(8,8) : DIM G(8) 


FOR A=1 TO 8:FOR E=1 TO S:LET AF(A,B)="0":NEXT E 


GOSUR 2000 
NEXT A 
X=1:Y=1 
LOCATEH1,Y,X 
IF AF(X,Y)="0" 
IF 
IF INEEY(8)=0 THEN 
IF TNEEY(1)=0 THEN 
IF INEEY(0)=0 THEN 
TF INKEY(2)=0 THEN 
TF-INKEY(18)=0 
IF. INEEY (79)=0 
LOCATER1,Y,X 
IF A$(X,Y)="1" 
1F AFCX, Y) ="0" 
TéF=TNKEYS 
IF INEEY (61)=0 
IF INEEY (35)=0 
IF TNKEY (62) =0 
IF INKEY (27)=0 
IF TNKEY (63) =0 
IF INKEY(58)=0 
IF INKEY(71)=0 
IF INKEY (53) =0 
FOR Z=1-TO-60:NEXT-Z 
GOTO 920 


AF (X,Y)="1" THEN PRINTH+1 ,CHR* (143) ; 
Y=Y-1:1F Y<¿1 THEN 
Y=Y+1:1F Y*8 THEN 
X=X-1:IF X<1 THEN 
X=X+1 :1F X*8 THEN 


THEN FRINT$1," “3 


THEN 
THEN 


THEN 
THEN 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


<<< 


D-= 0 


AS(X,Y)="1" 
AS (Xx, Y) ="0" 


FRINTH1 ,CHR$ (233) 
PRINT+$1 ,CHR+ (232) 


GOSUR 
GOSUBE 


CLSH1: 


GOSUB 
GOSUB 
GOSUR 
GOSUB 
GOSUB 


1000 CLS$2:PRINTH2,"*xxx DATAS 
"SYMBOL. FINAL :" ¿SF 
O FEN 1 :MOTE 2 
E L=9000+ (2x (SI]-32)) 
8 SYMBNL AFTER 235 


101 
2101 

101 

102 


O FOR N=ST TO SF 


12 - AMIGOS DEL AMSTRAD - 1986 


1000 
1500 
GOTO 60 
16500 
1800 
1900 
2500 
1950 


q" ¿PRINTH2 5 INPUTH42, "SYMBOL INICIAL :"3SI:INPUTH2, 


Nnanrannnnnnancnonsnnnann mtvanranvnna af fa a 19 19) (2 


ARANA AAA ARA AAA AAA AAA 


1030 
10460 
1050 
1060 
1070 
1080 
1100 
1500 


LE 


1505 
1510 
1515 
1520 
1525 
1528 
1530 
1540 
1600 
1610 
1520 
1530 
1540 
15650 
1660 
1700 


1710 


1720 
1730 
1740 
1800 
1810 
1820 
1830 
1900 
1910 
1920 
1930 
1950 
1960 
1980 
2000 
2010 
ZO20 
2030 
2040 
2050 
Z060 
2120 
2130 
2190 
2200 
2500 


2sto 


2313 
2azo 
2330 
2540 
200 
2560 
2600 
3000 
3010 
3020 


PRINT L+(5X (N-ST)) ¿ "SYMBOL" ¡¿N¿CHRE(8)3","5 
p=40700+(Nx8) 

FOR b=p TO F+7:22*=STR*(FEEKE(b)) 

PRINT MIOS (2,2,LEN(Z3+)-1)3",";5 

NEXT biFRINT CHRE(B) ¿0 " 

NEXT n 

ENT 


CLSH2GPRINTRZ, "Mak. TNTRODUCIR XXX" :FRINTRE2: INPUTR2, "EN QUE CARACTER (322 


FRINTR2, "CAMBIAMOS 3: "¡¿CHRE(C) 

FOR A=1 TO B:lé=""2FOR Z=1 TO B:Dié=02+A%(A,Z) ¿NEXT 7 :NU=VAL. ("2£X"+D3%) 
G(A)=NU 

POKER 40699+(Cx8)+A4,NU:¿:NEXT A 

SYMBOL 0,6(1),6(2) ,6(3) ,6(4) ,6(5) ,6(6) ,6(7) ,6(8) 

GOSUR 2130 

PRINTR2,"0E. TNTRODUCIDO"0;"0 "5CHRE(C) 

RETURN | | | 
CLSH2:2FRINTEZ, MOOKxk ELEGIR OO GGPRINTRZ 5 INFPUTR2, "QUE CARACTER (32-23030) :"3 
P=40700+ (0x8) ¿FOR Z=F TO F+7 

ZE=R TINE (FEEK (7) ,8) ¿FOR N=1 TO B:A% (2-F+1,N)=MI0% (7% ,N,1) :NEXT ON 
NEXT Z 

GOSUB 1700 + 

PRINTS, "OE, "30CHRE(C) 5" EN FANTALLA." 

RETLJEN ! 

FOR E=1 TO B:FOR L=1 TO 8 

LOCATER*1,L,E 

IF AF(E,L)="0" THEN FRINTH41,CHRE (32); 

IF AR(E,L)="1" THEN PRINT+*1,CHRE (143); 

NEXT L:¿NEXT K*RETURN 

TNFUTRR, "CARACTER INICIAL :"¿C 

CLSHZ | | 

PRINTR2Z ,CHRE (0) ¡¿CHRE(0+1) GPRINTH2R,CHRE (C+2) ¿CHRE (043) 

RETURN 

FOR E=1 TO 8:FOR L=1 TO 4 

ZESAF (E, LL) CAR(KSL)=AF (E ,9-L) :As(K,9-L)=Z+ 

NEXT L:NEXT E 

GOSUB 1700 RETURN 

FOR KE=1 TO 8:FOR L=1 TO 8 

TF AS (KE,L)="0" THEN AR(K,L)="1" ELSE AR(K,L)="0" 

NEXT L:¿NEXT K:GOSUB 1700:RETURN 

Hi="" "FOR A=32 TO 71 :Hé=H$+CHR*$ (A) ¿NEXT A 

l*="":FOR A=72 TO 111:Il*=13%+CHRE(A) ¿NEXT A 

Jé=""2FOR A=112 TO 151 :Jé=J%$+CHRE (A) ¿NEXT A 

EF="":FOR A=152 TO 191 :K$=kK$+CHRE (A) ¿NEXT A 

Lé=""*FOR A=192 TO 231 :L3=L$+CHRE (A) ¿NEXT A 

Mé="":FOR A=232 TO 255:M$=M$+CHR$ (A) ¿NEXT A 

CLS:PRINT:FOR A=32 TO 255 STEP 40:FEN 2:PRINT A:PRINT:NEXT A 
SYMEOL AFTER 32 

FEN 1:LOCATE 1,3:FRINT H*+:FRINT IS:¿PRINT J2¿PRINT O ER:FPRINT LE:FRINT ME 
FEN 1 

RETURN 

CLSRHRIGPRINTRER, "22% GENERATIOR DE CARACTERES 32%" 2:PRINT 
FRINTE2, "MOVIMIENTO CON TECLAS CURSOR" 

PRINTH2. "ENTER. ENCIENDE DEL. AFAGA" 

PRINTR42,"T. INTRODUCIR P. ELEGIR" 

PRINTH2,"C. BEORRA CELUOTLLA" 

PRINTRH2,"E. ESPEJO V. INVERTIR" 

PRINT42,"D0. MATAS Z. FONE ESTA PAGINA"; 

SOUND 1,200,10 

RETURN ¿ ¡ 

MODE O:FRINT"GENERADOR :" 

PRINT:FRINT"ANGEL GARCIA DELGADO" :*PRINT"G.T.S. 1986" 

FOR A=1 TO 1000 STEP S:SOUND 1,9,1,15:NEXT A:RETURN 
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O 


E A A A 


REM PrrrEr RECOGIDA AGOIOOIONOK 
REM Xx ANGEL GARCIA DELGADO * 


REM 
MODE | 
INE O MA INK- 1,26: Ink 2,7: TNK 
PAPER 0: BORDER ¡01 

ORIGIN 318,210. 


FOR a=0 Ti TO 2xPT STEP PI/7O 
Y PLOT OO,0 Y 


TIRAW 3Ó0KCOS (a), 1 SOXSIN (a) 
TIRAWR-0 ¡20SIN (a), 3 


O. .MEXT... PE ch: 


FRINT CHR$ (22) +CHRE (1); 
LOCATE 7,12 | 
FRINT "RECOG GINA" 
FRINT CHRE (22) +CHRE CO) 


HBO INE 270 FINO 187 , e 

FOR sb TO 300: SOUNT 1,a,1,15:NEXT a 
200 INE. 2,18,7:INK 3,7,18 
210 FOR a=300 TO 1 STEP 


TNE 2,7: TNE 3,18 


O FOR a=1 TO S0O:NEXT a | E E | 
240 FOR a=0 TO SO:FRINT CHRE (7) ¿FOR b=1 TO sa dl sa ll Dr! 


MOTE 1 


260-60710-310 


290 NEXT a 


FRINT TAR(2O-LENC 
bá= MIME (ar, ay1) :PRINT bes: 


RE kdd did dl: S. AOOIOIOIOIOIO 


IF bé<> 


300 PRINT:PRINT:FOR a=1 TO 200:NEXT 


(380 Ar="A. 


390 


REM Oxk INICIO ME 
Aé="<2<% RECOGITIA 


PROGRAMA 
2G0SURB 


FRINT: As="R ¿ECOGE Las FERAS DEL HUERTO. P 
A$+="CARGARLAS EN EL CAMION, ANTES IE ed 


KXXkxk 
270 


A+="ESTE SE MARCHE." :GOSUB 270 


FRINT:As="CONTROLES MEL JUEGO :" :GOSUB 


(AF="0. ARRIBA" :GOSUB 27071 
ARAJO" :GOSUR 270 


A+="0. IZOUIERDA":GOSUR 270 


400 As="P. DERECHA" :GOSUR 270 
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$)/2) ¿FOR a=1 TO LEN(az) 
THEN PRINT CHRE (7) y 


a: RETURN 


| 
j 
ES 


y 


j 
a e 
-2:SOUND 1,a,1:SOUND 2,aX2,1:+NEXT 


4 


ARA" :GOSUB 270 
270 


j 
i 


CANRANNRARANAROV 


Ad 


| 
| 
i 


j 


H 
| 
, 
: 
il 
j 
+ 


: ¿ 
ml 
7 


410 P INT: A$="PULSA e FARA EMPEZAR" :GOSUB 270 pi E | 
2420 IF INEEY(60)<>0 THEN GOTO 420 7] | | U | 
| 430 F=0:T1= 50+P=1 pe AE ss 

A d 


A TO E E A e A RA cc E eo, PA A A A A A A A A PO PO 


INE 2,9: TNE 324 
460 El RUE O:FPAPER O PA 
| IN 1. 


e 


3 i j i ] j 
PL. E Le AMB. O LE E, BM ETE IPR SEAL A PP | 


3 

» , H j q H H i ] ¿ 

PRINT $1, PUNTOS: "¿TAB (20)3" | TIEMPO:" | | 
! ; | 

¡ 


A ¿ ¡ | 


520-.FOR-A=1-TO-A0--—.. | A | | Al Mo 10 E 
30. .Ar ¡AELOMRE (106) ¿BEBE ICHRS (165) ¡0! A e e 0 A A E OR 
NEXT A | | 


PRINT $1,08; PRINT H1,BSj"  "¡CHR$(161) ¡CHRE (162) ¿CHRE (160) ¿CHR$ (164) ¿PRINT + 
| | 
| 


1,As | | | | | 
560 et S:GOSUB ezo | ppp | | | 
le 580 T=300 ¿ 
590 X=5:Y=5:XB=5 1: YB= 5iRe o | | | 
600 IF TNKEY (67) =0 THEN X=X-1:1F Xx | 
610 TF INKEY(69)=0 THEN X=X+1:1F 
2620 TF TNKFY(34)=0 THEN Y=Y-1:1F 
630 IF INKEY(27)=0 THEN Y=Y+1:1F | 
640 LOCATE YE,XB: PRINT" " 7 ¡ e 
650 LOCATE Y ER ¿CALL 30000 :C=PEEK (29999) i | de OS GA 
660 1F C=160 THEN R=R+1:SOUND 1,500,3:P=P+5 *LOCATE +, 11-41 ¿PRINTH1, ¿Pl alentando 
670 1F R>9+5kF THEN R=0:F=F+1:P=P+T:FOR A=1 TO 1000 STEP 3:S0UNT 1,0, LENEXT A:G0 
TO 560 | 
680 PRINT CHRS (248+RNDK3) | 
690 T=T-1:LOCATE $1,31,1: PRINTH1 USING MRE GT | | : | | 
|-—700-1F-F<t-FHEN-GOTO- 730 , , + Í ó A de A PA + A . A. | ; 
710..XB=X:YB=Y. | | q. | | 
720 GOTO 600 | : | | 
730 Bs=" "+CHRE (161) +CHR$ (162) +CHRE (169) +CHR$ (164) 
| 145 FOR A= 3 TO 30 | IM lo 
| 760 SOUNI! 4 ,1900, 1H FOR B=1 TO SO:NEXT E 
O | pt | i | e 
780 MODE O A l 
| 790 PEN 2 0 A A 
| 800 LOCATE 6, 7: PRINT"GAME OVER" 
! 


] 


E 
810 FEN 1. | | | | 
820 LOCATE 5,12: PRINT"PUNTOS: "USING CARRO P | | 
E30—INk-23 110 | ha 
840 FOR A=1 TO 4000 STEP 10: /SQUND- 44M HINEXT-A olaaa 
850 FOR A=1 TO 10000:NEXT A | 
860 RUI 250 | 
870 FOR A=1 TO 10+5xF | 
880 X= =1+INT(17XRND) :Y=1+INT(RNDX39) | 
890 LOCATE an X1CALL 30000 :1F PEEK (29999) < 532 THEN GOTO 880 
900 PEN 2:PRIN CHR$ (160) p 
910 RN CHR$ (7) ; 
920 NEXT A 
930 RETURN 
940 END 
950 REM kx cone SCREENS kk 
960 TMIATA 205, 1187, sde E 473 E 201: 
970 RESTORE YE | i | | | UN 
-980 FOR a= =30000- TO 30006 READ b:+FOKE a,b:NEXT a : : pp 
H H H 1 5 E ¿ j ¿ 
| 
j 
¿ 
¡ 


j 
j 


4 


a A A. A A 


4 el A A A A A 


ES 
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AA A 47 Li 4 san ol Ae a A ANANE AU A 


Pa $ nl + + . + 5 5 A A A A A de oro ¿ de ¿ e an 


990 RETURN 

1000 REMO GIGIBIOOEIOIOIRBIRIERERIEORE 

1010 SYMROL AFTER 160 

1020 SYMROL 160,946,144,56,56,124,124,124,56 
10230.-SYMBOL..-161-4 255,128), 128,128 ,129,255,91: 427 
1040 SYMROL 162,255,0,0,0,0,255,64,0 

1050 SYMBOL. 163,251,11,11,11,11,251,222,216 
1060 SYMBOL 164,224,176,152,143,255,255,93,28 
1070 -SYMROL. 165,0,0,0,0,126,63,0,0 

1080 SYMBOL. 166,0,0,0,255,255,0,0,0 

1090 RETLIRN 


o E ES 
a NE 
o 2 2 EXE AAA . 
a E E APR BEA 


ENSAMBLAJE 


10 REM XXXXXX ENPANPLAJE XXX XXK 
20 REM X ANGEL. GARCIA TMELGALDO x 
30 REM OAGOOIOIOONx G.T.S. KKXXXXX 


40 REM 

42 GOSUR 1110:GOSUR 1170 

50 MODE O 

60 INE 0,0:sINE 1,26:1NK 2,7:TNK 3,18 
70 PAPER O:BORTIER O 

80 ORIGIN 318,210 

90 FOR a=0 TO 2*xFT STEP PI/7O 

100 FLOT 0,0,2 

110 DRAW 300xXCOS(a) ,15OXSIN(a) 

120 TIRAWR 0,30XSIN (a) ,3 

130 NEXT a 

140 PRINT CHR$(22)+CHRE (1); 

150 LOCATE 6,12 

160 FPRINT "EMSAMELAJE" 

170 PRINT CHR$ (22) +CHRE (O) 

180 INE 2,7,0:TNE 3,0,18 

190 FOR a=1 TO 300:SO0UNO 1,a,1,15:NEXT a 
200 INE 2,18,7:TNK 3,7,18 
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e NAMED! 


BBD 0/0 BE Dr BE O Br 0/70/78 00/0909 878/0//10/187) 


RARA AAA AA ARA AAA AAA AA 


210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440) 
4no 
4650 
470 
480 
490 
S00 
510 
20 
530 
540 
50 
560 
570 
580 
90 
600 
610 
620 
630 
640 
650 
5660 
E47O 
680 
620 
700 
710 
720 
730 
740 
7530 
760 
770 
780 
790 
800 


FOR a=300 TO 1 STEF -—2:SOUNO 1,2,1:S0UNO 2,a*Xx2,1:NEXT a 
TNE 2,7:INK 3,18 

FOR a=1 TO SOO:*NEXT a 

FOR a=0 TO SO:FRINT CHRE(7):¿FOR b=1 TO SO:NEXT b:¿NEXT a 
MONME 1 

GOTO 310 

FRINT TAR(20O-LEN(ag)/2) ¿FOR a=1 TO LEN(az) 
bé=MTMé(at,a,1) :PRINT béz2TF bé" " THEN FRINT CHREC; 
NEXT a 

FRINT:FRINT:FOR a=1 TO 200:¿NEXT a:RETURN 

REM Xxx INICIO TEL FROGRAMA Xxx 

Af="x<22 ENSAMBLAJE 2::":GOSUR 270 
PRINT:FRINT:Af="ENSAMBLA TU MODULO LUNAR CON LA NAVE" :GOSUB 270 
AF+="NOMRI]JZA FERO SIN ESTRELLARTE CONTRA LOS" :GOSUB 270 
AF="ASTEROIMES, O CONTRA EL SUELO DE LA LUNA" :¿GOSUR 270 
FRINT:Af="LOS CONTROLES DE LA NAVE SON:":GOSUR 270 
A+="CURSOR <., MUEVE A LA IZQUTERODA":GOSUB 270 
At="CURSOR =. MUEVE A LA DERECHA" :GOSUR 270 

As$="CURSOR "+CHRE(196)+". ACTIVA RETROFROPULSORES" :GOSUE 270 
FRINT:Atf="PULSA -S- FARA EMPEZAR" :GOSUB 270 

TF TNEEY(60)<350 THEN GOTO 410 

Si="" “FOR A=1 TO 40 :S%=S$+CHRE (164) ¿NEXT A 

INE 0,0: INE 1,26: TINK 2,10: INE 3,3 

FAPER O:>RORMTER O 

FEN 1 

MONnE 1 

P=0:V=5:1F=1 

WINDOW 1,40,2,25% 

GOSUR 930 

X=1 :Y=1+TNT (RNTIX39) 

XB=X + YR=Y 

LOCATE Y,X:¿PEN 22FPRINT CHRE (160) 

FOR A=1 TQ SO:A%=TNKEEY+:NEXT A 

Ai=TNEFYR:TF Aéz="" THEN GOTO 540 

TF TNEEY(8)=0 THEN Y=Y-1:1F Y<1 THEN Y=1 

TF TINKEEY(1)=0 THEN Y=Y+1:1F Y:40 THEN Y=40 

TF TNEEY(0)<%0 THEN X=X+1:G0TO 600 

SOUNT 1,1000,1,15,0,0,31 

X=X-1:1F.X<1 THEN X=1 

LOCATE Y,X:CALL. 30000 :C0=FEEK (29999) 

TF C=32 THEN GOTO 680 

TF C=161 THEN 710 

TF C=162 THEN 710 

TF C=163 THEN 710 

TF C=166 THEN 710 

IF C=164 THEN 710 

TF C=46 THEN GOTO 760 

LOCATE YR,XRE:FRINT" "“LOCATE Y,X:FRINT CHRE(160) 

XB=X :YR=Y 

GOTO 550 

REM Xxx MUERTE XkxXkxk 

LOCATE YR,XR:FPRINT" "“¿FEN 1:LOCATE Y,X:FRINT CHRE (238) 
FOR A=1 TO 1000 STEF S:SOUND 1,4,1,15,0,0,31:NEXT A 
V=V-1 ¿GOSUB 1070 

GOTO 490 

LOCATE YR,XRÍ*FRINT" "¿LOCATE Y,X:FRINT CHR*(160) 

FOR A=1 TO 1000 STEF S:SOUND 1,4,1:NEXT A 

F=F+1 

P=P+15xF 

GOTO 490 
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“+ 
j 


j 


AORNIRRR 


1250 RETURN 


3 el a E XX pS | ) ¡clon 
j ; + 
ls | i | 
| | 
A AL IM a A lb 
A A A E E APA 
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| | l Ml : | 
O 
j h 


1223, 111 


| E 7] | ] l | | [ | 
| | ¡0 DE | | | | 
Gn , T de de a | M e + E | E A LA A 6 JOE NE FO IE qe a E e A po 
| ] | h ! d | | / i lo i ' 
(810 REM JOKKk GAME OVER XXX i 1 | | HF] | 
(820 FOR B=15 TO 200 STEP 2 | | l AA 
/830_EOR A=I- TO 500 STER_B A, ¡MN hoi A A A 
840 SOUNN 1,4,1 L_] | | | . 
850 NEXT ArNEXT E | | | 
860 MODE O | | | | | | 
870 LOCATE 6,8 PEN 2:PRINT"GAME OVER" | | | | | 
+ 880 FEN 1 Pa PP. he Pa t O coparcor py PP. Y HT] PP dE Md mo romo TE sl 
890 LOCATE 5,12:PRINT"PUNTOS: "¡USING "RHHHH" GP | t 
(900 INK 2,16,0. MAA | | | | | | 
¿910 FOR A=1 TO 10000 :NEXT A LAS ¡ | 
920 RUN 250. TS 2 E 0 0 
(930 REM xxx ASTEROTDES xXx | Mm | | | 
(940 GOSUB 1070: CLS í | l 
(950 PEN 3 bo] pel | | | | 
¿960 FOR A=1 TO 10+FxX5 | h-3 1 0 an | 
OO. X=1+INT(RNDXZ1) ¿Y= 1+INT(RNDA3O) A e e o a or ci a e a o Fi 
(980 LOCATE Y,X:CALL 30000: 1F PEEK (29999) < :32 THEN GOTO 970. | 
(990 PRINT CHRE (166) | | | LAA | 
21000 NEXT A | | | | 
(11010 FEN 1:LOCATE 1,24:PRINT se | 
nn HO20- PEN A na a 7 PP + a 7 PP pa . + 
(21030 Y=3]+TNT(RNTIKX36) | pa] | | 
1040 LOCATE Y,23:FPRINT CHAS (161) +CHRE (162) +CHRE (169). 
11050 LOGATE, Yo 2RsPEN 1:PRINTA ,l" 88. | 
1060 RETURN | E A deis var e En 
11070 LOCATE $1,1,1:PRINTR1, "PUNTOS: "¿USING RARO PSP: 
COCO FASE: "3:PRIN ca $1 USING "44" ,F | 7 
1080 IF V<1 THEN GOTO 810 == | 
21090 RETURN. | | 
1100. Eo oli AA A 
(1110 REM Xk COME SCREENS xx | | 
11120 MATA 205,96,187 ¿50474 117,201 | 
1130 RESTORE 1120 ía PA 
(1140 FOR a= 30000. TO 30006 :R READ b:POKE asb: NEXT 
da modo. 150 Ri El LRN- Ñ E Ñ e E > SI Ae a E ol BR 2” 
11160 REM OOOO aRaODa JOtOK La 
21170 SYMEOL AFTER 160 ¡ ol 
1180 SYMEOL 160,74,44,94 L191,191,255./285] 160 
11190 SYMBOL 161,6,1 15, 411,11 11/,111 11,4 
dE 1200 SY ROL 162,60, 36, e OS 
1210 SYMBOL 163,96, 240 ,208,208,208,208,208,96 
1220 SYMBOL 164,123,255 y255,2411.255,220,255,258 
1230.SY BOL 165,24, £0, 60 24,24,16,32,0 
1240 SYMROL 166,56, 122 ,247 4255. 128] 


TATI HAS ES ES SS ES SS Y SIS AS SS SS SS 


ANTIRROBOT 


REM XAXXAXXA XK -ANTIRROBOT AGO 
REM kx ANGEL GARCIA IMELGADO x 


REM > AMIGO G.T.S. IOOIOIORONK 
REM 
MONE 0 

INE 0,0: INE. 1,26: INK-2,7:INK 3,18 
PAPER O2¿RORTIER O 
ORIGIN 318,210 
FOR a=0 TO 2xPT STEF FI/70 

FLOT 0,0,2 

TIRAW 3O0OXCOS (a) ,15OXSIN(a) 

TIRAWR -0,3OXSTN(a) ,3 

NEXT a | 

PRINT O CHRE (22)+CHRE (1) 5 

LOCATE 4,1? 

FRTINT "ANTIRROROT" 

FPRINT O CHRE (22) 4+CHRE CO) po 

INE 2,7,0:TNK 3,0,18 

FOR a=1 TO 300:SOUNO 1,a,1,15:NEXT a 

INE 2,18,7: INE 3,7,18 

FOR a=300 TO 1 STEF -2:SOUNO 1,a,1:SOUNO 2,2axX2,1:NEXT a 
TNE 2,7: TNEK 3,18 

FOR a=1 TO SOO2NEXT a 

FOR a=0 TO SO:FRINT CHREC(C7):FOR b=1 TO SO:NEXT b:NEXT a 
MOTE 1 

GOTO 310 

FRINT TAR(2O-LEN(ar)/2) :FOR a=1 TO LEN(az) | ¡ 
bé=M]M$ (ar ,a,1) :FRINT bezy: IF bé23" " THEN FRINT CHRE (7) 5 p | 
NEXT a 


300 FRINT:FRINT:FOR a=1 TO 200:NEXT a:RETURN 


REM Xx*xxX INICTO MEL FROGRAMA xxx 

Aé="<<2% ANTIRROROT *3%*"2:GOSUR 270 l 
FRINT:Aé="CONTDUCE TU ROBOT A LA ZONA MARCADIA" :GOSUBE 270 
A$="CON LUNA -H- FARFAMEANTE, PERO" :GOSUB 270 
A+="TENTENTIO SUMO CUTDACDIO DE NO FISAR":GOSUB 270 
Aj="LAS MINAS QUE AFARECEN EN EL CAMINO" :GOSUB 270 
FRINT:Af="0,., ARRIBA" :GOSUR 270 

Ar="A. ARAJTO" :GOSUB 270 

Aé="0. TZQUTERDA":GOSURE 270 

Atf="F. DERECHA" :BOSUR 270 
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410 
42Oo 
430 
440 
43530 
450 
470 
480 
490 
500 
510 
520 
330 
540 
O) 
560 
370 
580 
390 
600 
610 
620 
630 
640 
630 
660 
470 
680 
690 
700 
710 
720 
730 
740 
7530 
750 
er dada! 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
930 
3960 
970 
2980 
990 


PRINT:FRINT:Af="FULSA -S- FARA EMPEZAR" :GOSUB 270 
TF TNEEY (60)<3%0 THEN GOTO 420 

TNE- 0,0: TNE 3,24: 1NK<: 2,23: 1INK 3,6,17 

FAFER O:BORMDER O:FEN 1 

GOSUR 1110 

GOSUR 1170 

MOTE 1 

WINTIOW 41,20,35,1,3:FAFER $1,1:CLS +i 
FENRH1,2 
PRTNTE 3. MOIGIOROOOIOIOGIOIOIBORIOIRIOPIRPIPPIPlPPPPlPlPlSjPPPlPISjOPPlPOSPPIPBIOOO! ; 
f=1:p=0 

GOSUR 1040 

LOCATE 1,1:PEN 23 

FRINT CHRE (165)+CHRE (166) 

LOCATE 1,2 

FRINT CHRE (167) ¡CHRE (168) 

pé=CHRE (160) +CHRE (161) +CHRE (10) +CHRE (8) +CHRE (8) +CHRE (162) +CHRE (163) 
bi=" "SCHRE (10) +CHRE (8) +CHRE (8)+" e 

=23 1y=39 

xb=231yb=39 

M=0 

TF" TNEFY(67)=0 THEN x=x-1:1F x«<1 THEN x=1 
TF-TNEFY(69)=0- THEN x=x+1:1F x5*23 THEN x<=23 
TF. TNERY (34)=0 THEN y=y-1:1F y2i1 THEN y=1 

IF TINKEY(27)=0 THEN y=y+1:1F y>39 THEN y=39 
LOCATE y, :GOSUB 780 

LOCATE y+1,x :GOSUR 780 

LOCATE y,x+1:GOSUB 780 

LOCATE y+1,*+1:G60SUB 780 

FEN. 2 

LOCATE yb,xb:FRINT bz 

TE M310-F THEN GOSUB 1060:M=0 

LOCATE y, aFPRINT pe 

M=M+ 1 

SOUND 3,25+25XRNT, 1 

xb=x 1yb=y 

GOTO 6720 

CALL 30000 :c0=FEEK (29999) 

TF c=32 THEN RETURN 

TF c=164 THEN GOTO 840 

TF C=42 THEN GOTO 840 

TF (0164 THEN GOTO 970 

RETURN 

REM XXX MUERTO xxx 

TNE 0,3,12:BORTDIER 3,12 

FOR A=1 TO 1000 STEF 3:SOUNO 1,0,1:NEXT A 
INE 0,0 

RORTIER 0 

MOTE (0 

FEN 2 

LOCATE 6,7:PRINT"GAME OVER" 

FEN 1 

LOCATE 4.13:+FRINT"FUNTOS: "¡USING "$HHHRHRUP 
INE 2,25,0 

FOR A=1 TO 10000:NEXT A 

RUN 250 

REM xxx H... OTRA FASE xkx 

LOCATE YB,XB:FRINT BE*:LOCATE 1,1:PEN 3:PRINT P+* 
FOR A=20 TO 30:FOR B=100 TO 500 STEP A:SOUND 2,B,1:NEXT B:NEXT A 


1000 P=P+15xF 


20 - AMIGOS DEL AMSTRAD - 1986 


POOPRPRRRRRRRRORRPRNRONNT Y 


240yUduUYLYyudugugagaddaygagdve 


1010 GOSUB 1040 

1020 F=F+1 

1030 GOTO 530 

1040 PEN $1,0:;PEN 1:LOCATE $1,2,2:FRINTR1,"PUNTOS: "¿USING "HHHRRRUGE 
1050 RETURN 

1060 H=4+TNT (2OXRNTO :T1=1+INT (RNITIX39) 

1070 PEN 1:LOCATE 1,H:PRINT CHR$(164) 

1080 SOUNO 1,100,1 

1090 RETURN 

1100 ENT 

1110 REM xx CODE SCREEN xx t | 
1120 TIATA-205,96,187,50,47,117,201 . po 
1130 RESTORE 1120 . 

1140 FOR a=30000 TO 30006:READ b:FOKE a,b:NEXT a 

1150 RETURN 

11160 REM OIOSGOIOIOIOIOIOIOIOIOIOIOIOR* | 

1170 SYMROL AFTER 160 | t $ al 
1180 SYMBOL. 160,96,48,31,63,127,247,227,231 | 
1190 SYMBOL 161,6,12,248,252,254,239,199,231 

1200 SYMBOL 162,235,248,124,63,63,202,219,2 

1210 SYMBOL 163,255,31,62,252,252,83,219,216 

1220 SYMROL 164,60,66,167,155,155,167,126,60 


ly 


1230. SYMBOL. 165,255,255,255,227,227,227,227,274 
1240 SYMBOL 166,255,255,255,199,199,199,199,7 i 
1250 SYMBOL 167,224,227,227,227,227,255,255,255 


1260. SYMBOL. 168,7,199,199,199,199,255,255,255 
1270 RETURN 
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sh 
EEE aaa : 3 EX a 


¿ 


OK TIERRA O 


20 REM k ANGEL GARCIA Ml. kx MUZE ON 

30 REM JaOOOor 6. TS. OR A | | 

40 REM | ll | | | 
CS0-MOOF. 0. a A E O e A O 0 E O (A A PA, O E CO 4 : 

60 INE O,OzINkK 1,26; TN 2,7: 1Nk 3,18. E : | | 

70 PAPER O:BORDER O | |] | | | 

80 ORTGTN 318,210 | | | 

90 FOR a=O TO 2XPI STEP P1/70 | | | | 

100 PLOT-0,0,2— MEA h E 

110 TIRAW 300XCOS (a), A lil ¡ | ¿ ) bu 


120 TIRAWR o ¿BOXSIN (a), | | | 
130 NEXT a | Ll | L—. Lo. 
140 FRINT CHR$ (22) +CHRE (1) 7 | | 
150 LOCATE EH ER E 1 + 0 A 0 A 0 0 1 
160 FRINT "INER= —TIRAW" í | 
EEPOPRINFT-CHREC227+EHRSCO) 3] 
180- TNK.-2:,7-407NE-3,014418--+ 
190 FOR a=1 10. .300:SOUNO 1,a,1,15:NEXT a 
200 TNE 2,18,7:TNkK 3,7,18 | | 
210 FOR a=300 TO 1 STEP -2:SOUND 1,a,1:SOUNO 2,ax2,1:NEXT a 
220 TINE 2,7: TNE 23,18. 
Cc c230 FOR a=1 TO 500: NEXT a 
co 240 -FOR-<a=0-TO-* PO1PRINT-GHRSA TI FOR b=1 TO SO:NEXT b: NEXT ATA AAA 
O aa] 0] : j | 
260 GOTO 310 | | | 
270 FRINT TAR(20- LEN (as) /2) :FOR a=1 TO LEN(az) 
280 b+= MIMé(aé,a, 1) :PRINT bé: IF b$23" " THEN PRINT CHRS(7)5 


300 PRINT:PRINT:FOR a=1 TO 200:NEXT Amero | 
310 REM *xxk INICIO MEL PROGRAMA *xkx | 
2320 at="<<< INER-DRAW )))":GOSUE 270. 
330 PRINT:A+="DIBUJA NE UNA FORMA MUY ESPECIAL :":GOSUB 270. 
0340 As="!!!' CON INERCIA ''!'":GOSUB 270 | MN 
350 Af="VERAS QUE RESULTADOS CONSIGUES" :GOSUB 270 | 
360 FPRINT:A$="SI SUELTAS LAS TECLAS LOS REBOTES" :GOSUE 270 
370 As="DEL CURSOR MIBUJARAN UN ENTRAMADO." :GOSUB 270 | 
380 -FRINT:0$="0.A.0.P.- MUEVEN EL CURSOR" +GOSUB-270—— 
390 At="R. BORRA LA PANTALLA" :GOSUE 270 | 
400 As="F. FINALIZAR" :GOSUB 270 | 
2% 2. rr mo 
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j 
pl 
j 
j 
j 


420 
430 
! 440 
450 
470 
480 
490 


520 
3 0 
| 540 


ds 00 ) da 


GOSUB 2 
TF INCEY (80) < 
MODE-=2 


ORIGIN 300,200 | | 
A60-PLOT CG II A 0 E 


HF INEFY(467)=0- 
TF 
IF 
TF 


TNEF Y (69)=0 THEN. 


TNKEY (34)=0 THEN y 
TNKE HEN 


(27 )=0 
TNEKE HEN 


RUN 


al 


> G0TO 510 
1 + 


'((50)=0 
TNEF Y(53)=0 THEN 
sd 


id yeyioo 
*300 THEN ci 
¿2300 THEN 


6 


=>1 


xi 


ES -200 THEN yis=yi 


TF y200 


THEN yis-yi 
TIRAW xx, | 


| 
| 
j 1] 
| 
| 


' HUESOS 


1= ici: E 


$ 
+ 


410 PRINT: :AS="PULSA - =G- PARA empezar” 
lelrieieo GOTO 430 


4 
| 


leki+1L1€ xi 


440 


y 250 | 


4:1F yi>8 THEN hi=8— E q Já 


yiz-8 THEN yi=-8 


+8 THE 


E PS AO ES 


| ! ¡ 
ide. HUESOS 
20 REMIX | xo 
30 REM Xk ANGEL SARETA 31 
40 REM xk | Ki 
50 REMXX O (6. TS. kx 
mn 60 REM PS — t . Cee Ml vero A 
70 INK 0,0sTNK 1,2 206: TNK 2,8 
80 BORDER O:PAPER OsPEN 1 
i i 
| | 
nd pi + pl vola O MA 
j | 
1 j 4 
| | | | 
| | | 
j ] 4 
| | 
a Y PS SRA HL E 
M | 


KiX-8 UE 


«i=-8 
xi=8 | 


inabnla Pe A + 
| 
; 
j 
a A A A JA 
¿ 
¡ 
y 
| ¡ 
3 A ds a 
j 


o E A | 


a 0 E E de dedos E 3 

H i 
| | 

| | | 
| 

| ¡ 

j j 

PP.” 2 Pa t 0 PP 4 - 

i 

Í | | 

1 | i 

| ¿ 

| | 

| j i 

An ls pa | 


A 


E 


A A A 


EH 8 
| 
E E 
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in mn E 


¿ 
A 
E 


90 MOME O 
100 ORIGIN 310,200 
110 FOR A=0 TO 2xFI STEF PI/SO, 


120 FLOT.0,0,2:DRAW SIN(A)X(15 ¡O+RNDX180) ,COS (A) Xx (BO+RNITIX160). 


130 NEXT A 

140 FPRINT CHR$(22) ¡¿CHRE (1) 

150 SPEED TINE 30,30 

160 LOCATE 8,13:FEN 1:PRINT "HUESOS" 
170 TNE 2,8,0 

180 RESTORE 10720 

190 READ. A,B:IF As-1 THEN GOTO 180... 
200 F=440x (27 (B/12)) ¿T=ROUNO(12500/F) 
210 SOUND 1,T1x5,09x10,1 

220 SOUND 2,Tx3,Ax10,1 

230 TF INEEYE23"" THEN 250 

240 GOTO-190 + pm 

250 REM XxX MENU XXX 

260 MOTE 1 

270 INE 3,11 

280 TINE 2,8 


2290 ORTGIN O,O:DRAWR 600,0,1:DRAWR 0,399:T/RAWR 600,0: TIRAWR 0,-399 


300 WINTIOW 8,32,6,2% 

310 FRINT " MPRINT" IN 

320 PEN B:¿FRINT "*x*Xxkx ELTGE TU OPCION XXkXxxk" 
330 FRINT " " 


340 FEN 1 :PRINT 's 1. CUESTIONARIO" 
350 PRINT " 

360 FRINT " 2. LISTAR MATOS" 

370 PRINT O" " 

380 PRINT "3, TERMINAR" 

390 PRINT ". " 


400 FPRINT" " 

410 PEN B2PBRINTMidlala lalo lO lalo lojolOlBlOlOJoIOJO" 
420 TF INKEY(64)=0 THEN GOTO 460 

430 JF INEEY(65)=0 THEN GOTO 880 

440 TF INEEY(57)=0 THEN MODE 1:CALL O 

450 GOTO 420 

460 REM Xxxxx CUESTIONARIO Xxkxkx 

470 MODE 1:INkK 1,26:INK 2,20: INK 3,8 

480 FOR P=1 TO 20 


490 MODE 1:PEN 1:PRINT Moo HUESOS DEL CUERPO HUMANO AxXOkXkKXxk" 


500 N=INT (RNDIX3) 

510 IF N=6 THEN RESTORE 960 

520 IF N=1 THEN RESTORE 980 

530 IF N=2 THEN RESTORE 1000 


540 READ R$,NN:NN=INT (RNOXNN) ¿FOR Z=0 TO NN:READ I+: NEXT £ 


550 PEN 3: PRINT" " 

560 PRINT"PREGUNTA:";P53TAB(17) "HUESO: ";I3+ 
570 PRINT " ":PEN 2 

580 PRINT " " 


590 FRINT "A QUE PARTE PARTE DEL CUERPO CORRESPONDE"; :PRINT 


EL HUESO CITANO:" 
600 PRINT" "¿PRINT" " 
610 FEN 3:PRINT " 

620 PEN 1:PRINT " " 


(PULSA 1,2 0 3)" 


630 FPRINT" "“FRINT " 1. CABEZA (Y CUELLO)" 

640 PFRINT" "*PRINT " 2. TRONCO (TORAX-ARTIOMEN) " 
650 PRINT" "FRINT O" 3. EXTREMIDADES" 

560 SDOUNO 1,100,10 

670 REM 
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"¿PRINT" 


YA ARRAPARORORORRERRONOANOID TE 


AAA AAA AAA IAEA AA AI 


680 TF TNEFY(643=0 THEN NR=0:G60TO 720 

690 TF JNKEEY(6%)=0 THEN NR=1:GOTO 720 

700 TF. TNEFY(57)=0 THEN NR=2:GOTO 720 

710 GOTO 670 , 

720 FEN SPRINT O" "PRINT" "¿TF NR=N THEN FRINT "CORRECTO!!! LA RESFUESTA ES 
"GRESFOR B=1 TO 3:FOR A=15 TO O STEF —1:INE 0,A:SOUN 

DN 1,0,1:NEXT A,R:AC=AC+1 al 

730 TF NR<=N- THEN FRINT "INCORRECTO. LA RESPUESTA ERA "¿R*:SOUND 1,600,100:FOR A 
=1 TO 100:FLOT RNTIX600 ¿RNTIX400:NEXT A 

740 NEXT FP 

730 MONE O:FOR A=1 TO 15:INE A,27-A:NEXT A 

760 FEN S:FRINT "*Xx*xxx*x RESULTATIOS *xXxx" 

TIOFPRINTA TP EPRINTE! 

780 PEN -2:PRINT-"- ACTERTOS....."¡AC 

LRO.PR.INT. MM..." 

800 PEN. 32+PRINT.".. FALLOS .......":20-AC 

810 PRINT" "SPRINT" "¿PRINT" " 

820 FEN 1:FRINT"  FORCENTAJE :"5ACxX5¿"%" 

830 PRINT" ":>PRINT" “:¿RRINT"¿" 

840 PRINT MRORIRRIROIOIE OOPS jPjPROjPJOJ”" 

850 FOR A=0 TO 100:A%=]NKEYS : SOUND 1,9,1,15:NEXT A 

860 TF. TNKEYE=""THEN 860 

870 GOTO 250 

880 MODE 2:RESTORE 960 

890 FOR A=1 TO 3 

900 REANO A+,N 

910 PRINT O" "sas" "RPRINT" O" 

920 FOR BE=1 TO N:READ Bé+:*PRINT " "BR, ¿NEXT E 

930 PRINT" "aPRINT" "“¿FRINT O" " 

940 NEXT A 

9530 GATO 850 

960 DATA CABEZA, 15 

970 TIATA PARTETAL. , TEMPORAL FRONTAL ,OCCIPITAL ,ETMOIDES ,ESFENOTTIES , MANTITEULA , NASAL 
,UNGUTS ,CORNETES ,POMULOS ,PALATINO ,MAXILAR ,VOMER ,HIOI 

DIES 

980 DATA TRONCO, 10 0 AE 

990 DATA VERT. CERVICAL, VERT. LUMBAR ,VERT. DORSAL ,VERT. SACRA,VERT. COXIGEA,C. A 
RTICULADAS,C. VERDANERAS,C. FALSAS,C. FLOTANTES ,ESTE 

RNON 

1000 DATA EXTREMITDIADES,22 

1010 nAaTa CLAVICULA ,OMOPL.ATO ,HUMERO ,CUBITO,RADTO,CARFO,ESCAFOIMES ,SEMILUNAR,FIRA 
MTOAL ,PISTFORME , TRAPECIO, METACARFOS ,FALANGES , ILEON, I 

SQUTON ,PUBIS,FEMUR,TIRTIA,PERONE ,ASTRAGALO ,CALCANEO ,ESCAFOIDES 

1020 DATA 8,4,4,5,4,7,4,7,4,5,4,4,4,2,4,0,4,0,4,2,4.4,8,4,2,2,8,2,8,4,4,5,4,7,4, 
7,14,5,4,4,4,2,4,0,94,0,4,2,4,4,8,2,2,0,9,0 j 

1030 NATA -1,-1 
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AS 
y de e pl ps pad pb PO cal 
a E E a 
2 O EE EEE EE O E E E EE a 
| a 
j 
10 REMO NUCLEO. ENERGETICO mi | 
20 REM ok ANGEL GARCIA DELGADO kk | a 
30 REM | | 
40. REM had | | ! | | hora) Q 
SO. ¿MODE o. | | | | | | o; 
60. INE 0,02 TNK 1,26: 1NK 2,7: INK 3,18 | | Ll TA Ll 
70 PAPER O:+BORTIER O pol | | | | 14 | ¿ a 
80 ORTGIN 318,210 | | | | | | 
90 FOR a=0|TO _2XPI STEP 1/70 | | | | | Q 
100 PLOT 0,0, | rl | | | a 
110 -TIRAW> SF SOXSIN (ar qe ps | a po val 
120 TIRAWR O, FOX, | ' qe | t a 
130 NEXT a ¡3 L..! | 2. | | | | 
140 FRINT ca poc | | | | | | | | Q 
150 LOCATE 8,17? SEAL A du | | 
160 PRINT NÚCLEOS ETT TA | | | MT 
170 PRTNT CAES [22 EE OR co) pi | | | | Q 
180 INE? 207 PNk-B305 | | | | NN 
190 FOR a= 1 TO oh UNA la, 1,1 54NEXT -a | | | E ' | po O / Q 
200 _TNK.2:18,721MklL a, 7 18d dd O O O A A 
210 FOR a=300 TO 1 STEP -2:SOUND 1,2,1:SOUND 2,9X2,1:NEXT a | Lal 
220 TNK 2,7: TNK 2,18 | | | | Q 
230 FOR a=1 TN 500; NEXT a. m7 ra” 17 | | 
240 FOR a=p— TO S50:PRINT T CHR$ (7) ¡FOR b=1 TOS SO:¿NEXT b:¿NEXT a í Q 
pa qn MOTE do a A A j E, A O E E En Pe a O A a A: O 3 , cobos do + PA a A A PS A JE, 1 A el ps ds a E 
260 GOTO 310 | | | | | 
270 PRINT Loi Ence (72, ¿FOR a=1 TO LEN(as$) | | | | h Q 
280 bi=MIME(ar,a,1) :PRINT bép: TF ben" THEN PRINT CHR$ (7) ; | mu 
290 NEXT a Je | A | | e AN 
2300 PRINT:PRINT:FOR a=1 TO 200:NEXT a: ¿RETURN HENAO -Q 
310 REM OXxxk TNICTO DEL PROGRAMA kxXx | | | pu A 
320 A$="<% NUCLEO FNERGETICO >>":GOSUR 270 i | | e Q 
330 PRINT:A%$="DIEFTENDE TU NUCLEO ENERGETI O" :GOSUB 7 A ha) Po) fac 
340 As="DIE LOS ATAQUES ME LOS AL TENIGENAS":6 GOSUE 270 A A IN o a 
350 A$="DIEL PL ANETA DRAKOV" :¿GOSUB 270 | 7 DA ( 
360 dl ESTO ES SON: " :GOSUH 2701 | | | 
370 A$="0. ARRIBA A. ABAJO":GOSUB 270 | | QQ 
380 A$="0. IZQUIERDA IERECHA" :GOSUB 270: ht | | pp | 
-390-PRINT+1A$="PULSA- EE ¡PARA-—EMREFAR*SOSUB-2 ROLL coco o Q 
200. TF e »0 THEN 400 | LA Lllinal | ho] E hb p- 
! j ¿ ¡ j | | 
| | | ARA | d] NI E 
| en m7 | | | | | HA 
A cc t A PT $ -+ un O E li Í Pr E. po E OS A el 0 E O A A A A mí ON dl a F EN 
26 paa e AMSTRAD - 1986 — | | | | E | UN 
i ¡ | | | po JU 
t j 4 


Le 


2 e 


| 
| 


o 
>. 
» 


CEEoTa, 


780 IF YM>20 


850 


o BBO.. 


950 RETURN. E 


4 


410 GOSUR a70. 
420.C0=24.... 
430 MTM M(B,? 
440 MONIE 1 


E 


YU E 
| Ll , 
| 


$ (160) +01 R$ (160) | 
$ (160)+0 RS c160) 


Elí o 
$=5F :G0SUE 970: YA AT :GOS 
A$=CH: :GOSUE: 970; ¡A$=8+ :605 


A 


pp MAR 


| 
| 
a 


HH + 


MA Una 


UE Da 


DIA 
a 


LIT 


TNKF Y (34) =0 THEN 
INKEY (27)= N 
660 LOCATE Y,X:CALL 30000 :C=P 
670 1F 0=0 THEN X=XB:Y=YBH 
ESO C=161 A GOSUB: 840 
dp 


al 0,1 


730 GOTO 600 | 

740 XM=M(A,1) :YM=M(A, 2) ¿LOCAT 
ED ESTE 
2760 1F XM<12 
770 TF YM zo 


| 


HEN TF ORND>0.S THEN. 
HEN 1F 


Ane O. s 
XM:CALL 30000 :C 


THEN YM= 
290 LOCATE YM 


. + 
MD 
a | 


7. INEFY ( 7)=0 THEN x= X= Ca 1F- E El 

 TNEFEY ( 9)=0 THEN X= X+1:1F X>25. THEN X= 125. 
Y=Y- 1:1F PUES 
Y= Y+1:1F Y 39 


l rm, XM: 
HEN- TF RND>O.5-THEN- "xM= 
XM=XM+1 


HEN YM=YM-1. 
CSPEEK (29999). 


THEN Y 39 


A 


RINT" 
pe pp hi 


pm | 


Pos Bula N GOSsu 1040 


810 FEN 
-820 peri KM MA Y 


830 RETURN 
840 FOR A=1 


Ea 


RN | 
860 NEXT A:A=1 :RETURN | 
870 REM xx COME SCREENS xx E 
TA 205, Vd 0 0 834 0 
890 RESTORE ee. E | 
900 FOR a: a=30000 TO 30006 : READ. 
910 SYMBOL AFTER 160 
920 SS TABO-150r 126 219, 
930 SYMBOL 16 21 
940 SYMBOL 162,0,36, 90, 


165,21 
,189, : 
¡36 ,36, 0,36;0- 


960. -RE] 


A 


3:LOCATE YM, XM: ¡PRINTO HR 161) 


| | 
MA, Lip ax] THEN 1F M(A,2)= =Y THEN St 


b: :POKE a b: ¿NEXT a 


,219, 165, 219 En a 
255,129,255,66,231 1 


SOUND a 


H 


di 


1% 1 | | 
Hi E Al A 
ma 7 | | ? 
al pu... . 


] me 
>. El e DEE E 

| 

| 


Pese 


| 


E 
EN A 
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| 


j i i j 


| 

| 
LL 

+ | 

pu 

i 


E 


| 


EL AMSTRA 
l 
i 


1000 1F FEEK(29999):<:32 THEN GOTO 980 

1010 M(A,1)=XX:M(A,2)=YY 

1020 LOCATE YY,XX:PEN 3:FRINT CHR*(161) 

1030 RETURN 

1040 REM xXx MUERTO *kxkX 

1050 XM=M(A,1) :YM=M(A,2 

1060 FOR Z=1 TO 200 STEF 10:SOUND 2,72,2,15,0,1:NEXT Z 

1070 CO=CO-2:INK 2,00,C0+3:IF CO<1 THEN GOTO 1090 

1080 RETURN 

1090 REM xxx GAME OVER xxx 

1100 FOR A=1 TO 20:FOR B=100 TO 200 STEP A:SOUNO 1,8,1,15,0,0,31:NEXT B:NEXT A 
1110 TNE 0,0:TNK 1,26: TNK 2,15,0:PAPER O:BORDER O:FPEN 1:MODE 0 
1120 PEN 2:LOCATE 4,7:FPRINT"GAME OVER" 

1130 FEN 1:LOCATE 4,12:PRINT"PUNTOS: "¡USING "HHHRRRU¡P 

1140 PEN 3:TNE 3,15:LOCATE 5,17:FRINT "OTRA? (S/N)" 

1150 FOR A=1 TO SO:At+=INKEY%:NEXT A 

1160 FEN 14 

1170 IF TNEFY(60)=0 THEN RUN 250 

1180 TF TNEFY(46)=0 THEN CALL O 

1190 GOTO 1170 


AS 


> 
RARAS IIA AD 
a E E 


NAUFRAGO 


10 REM xxx*x NAUFRAGO XXX 
20 REM X ANGEL GARCIA X* 


30 REM XxXkXk G.T.S. XkkX 

40 REM 

50 MONDE O 

60 INE O,O:3TNE 1,26: 1NE 2,7: INE 3,18 
70 PAPER O:BORMER 0 

80 ORIGIN 318,210 

90 FOR a=0 TO 2xP1 STEP P1/70 

100 PLOT 0,0,2 

110 TIRAW 300XCOS (a) ,15OXSIN(a) 
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YOOOOVOOE UU yO yYOYUOYyYOJYO Y yO yu y 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
ZO 
230 
240 
20 
260 
270 
280 
290 
300 
310 
2320 
330 
340 
350 
360 
370 
380 
390 
400 


410 
420 
430 
440 
AO 
450 

$2 
470 
480 
490 
S00 
510 
a2oO 
30 
540 
nO 
560 
570 
580 
590 
600 
610 
620 
630 


TRAWR 0,30XSIN (a) ,3 

NEXT a 

PRINT CHRE (22) +CHRE (1) 5 

LOCATE 7,12 

FRINT "NAUFRAGO" 

PRINT CHRE (22) 42HR : 

INK 2,7 OT 1MX 30,18 d 
FOR a=1 TO 300:SOUND 1,a,1,13:NEXT e 

INK 2,18,7: 1Nk 3,7,18 

FOR a=300 TO 1 STEF -2:SOUNO 1,a,1:SOUNO 2,akX2,1:NEXT a 
TINE 2,7:TNK 3,18 

FOR a=1 TO SOO¿NEXT a 

FOR a=0 TO SO:FRINT CHRE(7):FOR b=1 TO SO:NEXT b:¿NEXT a 
MONE 1 

GOTO 310 

FRINT TAB(20-LEN(at)/2) ¿FOR a=1 TO LEN(as) 

b*=MT0% (a$,a,1) :PRINT be;:T1F b$<>" " THEN PRINT CHRE (TD) 5 
NEXT a 

PRINT:PRINT:FOR a=1 TO 200:NEXT a:RETURN 

REM xxx INICIO DEL PROGRAMA xxx 

Afi="x<x NAUFRAGO >>":S0SUB 270 

PRINT:A+$="RECOGE LAS PROVISIONES QUE TE" :GOSUR 270 
A$="ENVIA EL AVION PARA QUE SORREVIVAS" :GOSUR 270 
AF="AL NALFRAGTO, HASTA QUE VENGA" :GOSUE. 270 

A+="UN BARCO A RESCATARTE" :¿GOSUE 270 
PRINT:A+="CONTROLES ME TU BARCA:":GOSUB 270 

A$="F]. MUEVE A LA TZQUIERTA":GOSUR 270 

Aé="F3. MUEVE A LA DERECHA" :GOSUR 270 

PRINT:Aé="FULSA -S- FARA EMPEZAR" :GOSUR 270 

IF TNKEEY (60)2<%0 THEN 410 

ENT _1,10,1,1,10,-1,1 

GOSUR 720 

INE CO, 23+FAFER O*+ROROER 23:TNE 1,0: FEN 1:MODE 0 

INK 2,4: TNkK 3,6:INE 4,14: INE 5,26 

WINTION $1,1,20,24,25:FEN $1,5:FAFER $1 ,4:WTNDOW $2,1,20,19,25:FAFER $2,4:CLS 


AC=0 1 FA=0:GOSUR 660 

pa=lixp=5:typ=5 

y=B 

xa=1+TNT (RNANIX10) 2ya=0 

TF TNEEY(13)=0 THEN y=y-1:1F y2i2 THEN y=2 

TF O TNAERY(=0 THEN y=y+1:1F y>18 THEN y=18 

EVERY 50 GOSUB 830 

LOCATE y-1,18:FEN 3:FRINT baz 

ya=ya+1 IF ya:17 THEN LOCATE ya,xa:PRINT "  "ixa=1+INT(RNDIX10) :ya=1 
LOCATE ya,xa:PEN 1:FRINT avi 

SOUNT 1,800,10,10,0,1,31 

ON pa GOSUR 600,620 

GOTO 510 

IF O RNM*0,.,9% THEN pa=2ixp=xa+1 2yp=ya+2 :¿SOUNO 2,100,10,15 

RETURN 

LOCATE yn ypaRRINT" "ixp=xp+1:¿LOCATE yp»yxp:FEN 2:PRINT pcs 

IF *p*16 THEN LOCATE yp»,xp+PRINT" ":LOCATE y yxp+1:PRINT" "apa=1lifa=fa+1 :SOU 


NO 2,400,20,15:G0SUB 660 


640 


TF xp=15 OR xp=16 THEN IF yp=y OR yp=y+1 THEN SOUND 2,200,20,1S5:ac=ac+1 :GOSU 


B-660:LOCATE ypy:*p:+PRINT" "¿LOCATE ypyxp+1:PRINT" ": 


pa=1 
630 
660 
670 


RETURN 
LOCATE +$1,4,1:PRINT $1,"0C: "¿USING "$*";00 
LOCATE $1,13,1:PRINT 41,"FA: "¡USING "*4"¡FA 
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RETURN 


¿IF FA>i 


=1. 


TO 20: s0s 


> GOTO EN 
'O SYMBOL 
730 
740 SYMBOL 
ap . 4250-18: 
44-240 
) SYMBOL 
Y SYMROL 


0 RETURN 
) CALL 


SYMBOL 1 


Svnas 


Gr; 505 


YMBOL -162,60,78 
63, 110, 


64, 3, 11, 


19: ¿RETURN 


GAME OV 


2 208,160 
d avi=" " CHRE (160) +CHRE ( 
Y per=CHRE(167)+C 
D bast="- CACHAS (16 dana 


| ll 
2] Joa 


ns 


pes 180 111 E OO A 
607224, 


40,240, 249, 135,126,63,0 
129 ,64,253, 955 ,248,1 


1126, dy 2 SS ,110, O y0 
INE NER: 131 515 
de 92,255,254 


61) 
Y +CHRE (1 


820.-PEN-34 

00 FOR A=1 
O PEN li] 
IF INKEY (60)=0 
> TF TNKE 
0 0GOTO 97 


2 E 
E GA 
> FOR A=1 
O INE 0,0 


PEN 23L 


ua 20: 


INE 1,2 
TE 6 
) PEN 1:LOCATE 4,12; PRINTS PUNTOS : 


C 


3,15: 


(46) = =0 


1 xk 


¿FOR La 200 
s: INK 2, 0: FAP 


191,255,129,66,36,24 


240 | 


4,248 Í 
Sin? 3 


? lat 


PE 


TER A: 


hell AME OVE 


"USTNG 


HEN RUN 
EN CALL 


250 


Ap 
, 
o 


SOUND aL 
O:BO ER 0:P 


1,1540 


¿MODE 0 


No 


1 


bale ? 
DICATE.. AE E 1 PRINT "OTRA? SAR o 
To. 50; A ENE Ine A... la] 


O 


| 
O: ET ¿NEXT B: LN $ 


ee 


220 REM 
30 REM xx ANGEL. (GARCIA 3 
IMC KAMA OA ! a 
50 REM 12 | 161 71-181 | EX | 
17 AO | ñ 
| | ¿ i á | H i | 
lla E 
el de 4 a md : at E PA: 8 cal 
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lc Ll de Js Ll 


ta lia 


-120 
130 


170 


200 
-210 
220 


Dd 


450 


PL 


O NEXT A 2 Y 
O 
SO. SP En 

Sl COLATE| Hl 
INE 
>». 180 RE TORE. 1020 
190 REAO A,B:1F 


F= 


RE 


SOUNT: 1,T*X5,Ax10 


ma CO: SI >) Mod DEBÍ cd + ke a ERA IS E e ¿ 
j | 
ll 17 E Mm | | 
ue | | | 
7! La 17] (O A pote E ll 
60 REM ) | | 
70- INE 0,0% INE 1,26; INE 248; 
80 SECA De «PAPER OPEN 1 | | | 
20 MODELO. de 0 Ea MO 5] E o 0 48 JA 
100 ORIGIN 310, | | | | 
110 FOR A=0 TO 2 


xFI STEP PI/S 0 


Too, 2 DIRA SIN 


PA e] 


0 DU A E A 
0,30 ! 


TK | lo una Ll | 
13:PEN SPRINT" ua! A | 


,B 0 


den BO e tod a A o — + 
A patea 


BOKX (2 ( 


rd )J=0 THE 
| INEEY (57) =0 THE 
| 450. 60 Qn 420 


15. : ; | | : Lal 

e O A AAA | o 

TETONA A 
| 'u | 


sta RAWR Edd -600,0. 


ar 


ELIGE Tu OPCION 


+ 


Al CUESTIONARIO" A E 


dia dl E ¿COS (6) K(BO+RNDAI 60) 


E A 


+ 


E E PO O O E SO E 


¿DIRAWR 0, 


| 
A 


2399... 


MODE 1cALL o| 


OOO CUESTIONARIO da ! | 


TATO MODE trIN 1287 TA 
FOR P=1 TO 
le 


Ala a THE 


t-b10-PE 
620 


PE 


2 Zoro 
20 4 


E..1: ¿PEN 
NT (RNN ! 
N=0. THE RESTA 960 

N=1 THEN RESTORE 980 
RESTORE 1000 


| | 
| | | | 
A A — + 


:¿NN= INT (RNDANN) FOR Z= =0 10 NN: READ de NEXT Z 


AN ¿FRIN mx loooKA X MUSCULOS DEL quen HUMANO PT 


+ e 
LIS R DATOS" Lal] eaten Did 
E] —|— A 0 A! me A E La DO O 
| | ¡ 
| | k 
El RARE O IS A 2 | | 
TNKE? =0 THEN GOTO 69 ME SODA COS IÓ UE 3 LO DS DO II 
INKEY (65 GOTO aloja - 


E E a 
| 
| | 
') PP mn a nn pa 
| i 


57 E07) E rmuScULOS Per 


A 
"A QUE PARTE P PARTE DEL co o CORRESPONDE" ; 


¿PRINT a 


Es E 


| 


"SPRINT" 


aora Pe a NS 


(PULSA | 1, 0.3" | 


a 


1 
[24 


de 


: 
H | j 
. CABEZA (Y CUELLO)" | ] 
. TRONCO. ora caeone 
| H Ll 4 
Lo | 


| 
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630 PRINT" "*PRINT " 3. EXTREMIDAINES" 
660 SOUNE 1,100,10 
670 REM 


680 TF TNEFEY(64)=0 THEN NR=0:GOTO 720 

690 1F TNEEY(65)=0 THEN NR=1:GOTO 720 

700 IF TNEEY(57)=0 THEN NR=2:GOTO 720 

710 GOTO 670 

720 FEN 23PRINT " "“¿PRINT" ":IF NR=N THEN FRINT "!!'!'CORRECTO!'!'! LA RESFUESTA ES 
"SRESFOR B=1 TO 3:FOR A=15 TO O STEP -—1:INK 0,4 :SOUN 

OD 1,90,1:NEXT A,R:AC=AC+1 

730 TF NR23N THEN FRINT "INCORRECTO. LA RESPUESTA ERA "¿R*:SOUNO 1,600,100:FOR A 
=1 TO 100:PLOT RNTIX600 ,RNITX400:NEXT A 

740 NEXT F 

7390 MONME O:+FOR A=1 TO 15: INK A4,27-A:NEXT A 

760 FEN S:PRINT "*xxkxxx*x RESULTADOS xxxkx" 

770 PRINT" ":PRINT" " 


780 PEN 2:PRINT "  ACIERTOS..... "¿AC 
790 PRINT " " 
800 PEN 3:PRINT O" FALLOS ....... "20-AC 


810 PRINT" ":“PRINT" "¿FRINT" " 

B20 FEN 1:FRINT". FORCENTAJE :"¿ACxX=7"Z" 

830 FRINT" "GPRINT" "“¿PRINT" " 

840. PRINT CRRGIOIRBIOIRRIRIOIOIGIOIOOORIO kx" 

850 FOR A=0 TO 100:04+=TNKEY*:SOUNO 1,9,1,15:NEXT A 

860 TF TNKEY*=""THEN 860 

870 GOTO 250 

880 MOOF 2:RESTORE 960 

890 FOR A=1 TO 3 

900 READ AF,N 

SIOLPRINT > MARE" "MEPRINT" 

920 FOR E=1 TO N:REAN RE:¿PRINT "  "¡B%,:NEXT E 

930 PRINT" ":PRINT". "“PRINT " " 

940 NEXT A 

950 GOTO 850 

960 TIATA CAREZA,9 

970 DATA TEMFORAL.,MASETERO,FTERIGOTODEO ,ORRBICULAR , SUFERCTLTAR , BUCCINACIOR ,1.TNGUAL., 
ESTERNOCLETNOMASTOINEO, CUTÁNEO 

980 MATA TRONCO,8 ; 

990 HATA PECTORAL ,SERRATO, INTERCOSTAL ,RECTO,OBLICUO,TRANSVERSO,CUATIRANO ,DTAFRAGM 
A 

1000 ATA EXTREMTOADES,18 

1010 TIATA DELTOTOES, SUPRAESFINOSO, TINFRAESFINOSO , RECIONCIO , SURESCAFULAR,BTCEFS,TRIC 
EFS ,¿RRAGUTAL ,CUBITAL ¿,RANTAL., SUPTNATDIOR ,EXTENSORES ,FLE 

XORES ¿SARTORTO ¿SEMTTENOTNOSO,TIBIAL ,FERONEOS ¿GEMELOS 

1020 ÑATA Ba Jud 2, 5,4,7,4,7 ,4,5,4, 4 47d 0,4, ó 14,2,4,4,8,4,2,218,2,8,4,4,71,4,7,4,; 
7,4,5,4,4,4, "Al, 10,9,0 :4,2,4, 4 8,2,2,0, 9,0 

1030 NATA =,; 1 
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Lo cciruel 


EL DOMINIO DEL AMSTRAD 
PCW 8256/8512 


“El dominio del Amstrad PCW 8256/8512” 
le sitúa en la vía rápida hacia el éxito en los 
negocios. Lo mismo si está Vd. empezan- 
do a utilizar uno de estos ordenadores, co- 
mo si está considerando comprárselo, es- 
te libro le mostrará rápidamente cómo ren- 
tabilizar al máximo su inversión. 


Una gran parte del libro trata del proceso 
de texto. 


Esta parte del libro es un medio didáctico 
excelente, que le conducirá desde los usos 
más sencillos del proceso de textos, a los 
más avanzados. Una sección aparte cubre 
el uso de NewWord, la potente alternativa 
de NewStarSoftware. 


HARAN HSA AE) 
CTRA TL TI 
dude? ata 


CPC 6128-664-464 


e RA-MA 


DOMINE EL CODIGO MAQUI- 
NA EN SU AMSTRAD 


Ahora tiene la oportunidad de aprender a pro- 
gramar en código máquina en su ordenador 
Amstrad. Clive y Scott —dos programadores 
muy competentes, con gran experiencia en li- 
bros y software a sus espaldas— son los guías 
ideales para ayudarle a comprender las inte- 
rioridades de la programación en código má- 
quina del Amstrad. 


Debe ir trabajando en código máquina del 
Amstrad. 


Debe ir trabajando a lo largo del libro, saltán- 
dose las secciones que le presentan una es- 
pecial dificultad la primera vez que las lea. 
Cuando haya terminado su primera lectura, 
tendrá los suficientes conocimientos como pa- 
ra poder comprender aquellas secciones que 
dejó sin completar la primera vez que pasó por 
ellas. 
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